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Publisher's 

Foreword 

It's easy to take a computer language like Atari BASIC for 
granted. But every PEEK and POKE, every FOR-NEXT loop 
and IF-THEN- branch, is really a miniprogram in itself. Taken 
together, they become a powerful tool kit. And, as Atari 
owners know, there are few home-computer languages as 
powerful and versatile — from editing to execution — as Atari 
BASIC. 

With this book, the Atari BASIC tool kit is unlocked. The 
creators of Atari BASIC and COMPUTE! Publications now offer 
you, for the first time, a detailed, inside look at exactly how a 
major computer manufacturer's primary language works. 

For intermediate programmers, the thorough and careful 
explanations in Parts 1 and 2 will help you understand exactly 
what is happening in your Atari computer as you edit and run 
your programs. 

For advanced programmers. Part 3 provides a complete 
listing of the source code for Atari BASIC, so that your machine 
language programs can make use of the powerful routines built 
into that 8K cartridge. 

And for programmers at all levels, by the time you're 
through studying this book you'll feel that you've seen a whole 
computer language at work. 

Special thanks are due to Bill Wilkinson, the creative force 
behind Atari BASIC and many other excellent programs for 
Atari and other computers, for his willingness to share 
copyrighted materials with computer users. Readers of 
COMPUTE! Magazine already know him as a regular 
columnist, and in this book he continues his tradition of clear 
explanations and understandable writing. 
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Preface 


In 1978, Atari, Inc., purchased a copy of Microsoft BASIC for 
the 6502 microprocessor (similar to the version from which 
Applesoft is derived). After laboring for quite some time, the 
people of Atari still couldn't make it do everything they wanted 
it to in the ROM space they had available. And there was a 
deadline fast approaching: the January 1979 Las Vegas 
Consumer Electronics Show (CES). 

At that time, Kathleen, Paul, Mike and I all worked for 
Shepardson Microsystems, Inc. (SMI). Though little known 
by the public, SMI was reasonably successful in producing 
some very popular microcomputer software, including the 
original Apple DOS, Cromemco's 16K and 32K BASICs, and 
more. So it wasn't too surprising that Atari had heard of us. 

And they asked us: Did we want to try to fix Microsoft 
BASIC for them? Well, not really. Did we think we could write 
an all-new BASIC in a reasonable length of time? Yes. And 
would we bet a thousand dollars a week on our ability to do so? 

While Bob Shepardson negotiated with Atari and I wrote 
the preliminary specifications for the language (yes. I'm the 
culprit), time was passing all too rapidly. Finally, on 6 October 
1978, Atari's Engineering Department gave us the okay to 
proceed. 

The schedule? Produce both a BASIC and a Disk File 
Manager (which became Atari DOS) in only six months. And, 
to make sure the pressure was intense, they gave us a $1000-a- 
week incentive (if we were early) or penalty (if we were late). 

But Paul Laughton and Kathleen O'Brien plunged into it. 
And, although the two of them did by far the bulk of the work, 
there was a little help from Paul Krasno (who implemented the 
transcendental routines), Mike Peters (who did a lot of 
keypunching and operating), and me (who designed the 
floating point scheme and stood around in the way a lot). Even 
Bob Shepardson got into the act, modifying his venerable 
IMP-16 assembler to accept the special syntax table mnemonics 
that Paul invented (and which we paraphrase in the current 
listing via macros). 



Atari delivered the final signed copy of the purchase order 
on 28 December 1978, two and a half months into the project. 
But it didn't really matter: Paul and Kathy were on vacation, 
having delivered the working product more than a week 
before! 

So Atari took Atari BASIC to CES, and Shepardson 
Microsystems faded out of the picture. As for the bonus for 
early delivery — there was a limit on how much the incentive 
could be. Darn. 

The only really unfortunate part of all this was that Atari 
got the BASIC so early that they moved up their ROM 
production schedule and committed to a final product before 
we had a chance to do a second round of bug fixing. 

And now? Mike and I are running Optimized Systems 
Software, Inc. And even though Paul and Kathleen went their 
own way, we have kept in touch enough to make this book 
possible. 



Part One 

How Atari 
BASIC Works 




Chapter One 


Atari BASIC: 

A High-Level Language 
Translator 


The programming language which has become the de facto 
standard for the Atari Home Computer is the Atari 8K BASIC 
Cartridge, known simply as Atari BASIC. It was designed to 
serve the programming needs of both the computer novice and 
the experienced programmer who is interested in developing 
sophisticated applications programs. In order to meet such a 
wide range of programming needs, Atari BASIC was designed 
with some unique features. 

In this chapter we will introduce the concepts of high level 
language translators and examine the design features of Atari 
BASIC that allow it to satisfy such a wide variety of needs. 

Language Translators 

Atari BASIC is what is known as a high level language translator. 

A language, as we ordinarily think of it, is a system for 
communication. Most languages are constructed around a set 
of symbols and a set of rules for combining those symbols. 

The English language is a good example. The symbols are 
the words you see on this page. The rules that dictate how to 
combine these words are the patterns of English grammar. 
Without these patterns, communication would be very 
difficult, if not impossible: Out sentence this believe, of make 
don't this trying if sense you to! If we don't use the proper 
symbols, the results are also disastrous: @twu2 yeggopt 
gjsiem, keorw? 

In order to use a computer, we must somehow 
communicate with it. The only language that our machine 
really understands is that strange but logical sequence of ones 
and zeros known as machine language. In the case of the Atari, 
this is known as 6502 machine language. 

When the 6502 central processing unit (CPU) “sees" the 
sequence 01001000 in just the right place according to its rules 
of syntax, it knows that it should push the current contents of 
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the accumulator onto the CPU stack. (If you don't know what 
an “accumulator" or a “CPU stack" is, don't worry about it. 
For the discussion which follows, it is sufficient that you be 
aware of their existence.) 

Language translators are created to make it simpler for 
humans to communicate with computers. There are very few 
6502 programmers, even among the most expert of them, who 
would recognize 01001000 as the push-the-accumulator 
instruction. There are more 6502 programmers, but still not 
very many, who would recognize the hexadecimal form of 
01001000, $48, as the push-the-accumulator instruction. 
However, most, if not all, 6502 programmers will recognize the 
symbol PHA as the instruction which will cause the 6502 to 
push the accumulator. 

PHA, $48, and even 01001000, to some extent, are 
translations from the machine's language into a language that 
humans can understand more easily. We would like to be able 
to communicate to the computer in symbols like PHA; but if 
the machine is to understand us, we need a language translator 
to translate these symbols into machine language. 

The Debug Mode of Atari's Editor/Assembler cartridge, for 
example, can be used to translate the symbols $48 and PHA to 
the ones and zeros that the machine understands. The 
debugger can also translate the machine's ones and zeros to 
$48 and PHA. The assembler part of the Editor/Assembler 
cartridge can be used to translate entire groups of symbols like 
PHA to machine code. 

Assemblers 

An assembler — for example, the one contained in the 
Assembler/Editor cartridge — is a program which is used to 
translate symbols that a human can easily understand into the 
ones and zeros that the machine can understand. In order for 
the assembler to know what we want it to do, we must 
communicate with it by using a set of symbols arranged 
according to a set of rules. The assembler is a translator, and 
the language it understands is 6502 assembly language. 

The purpose of 6502 assembly language is to aid program 
authors in writing machine language code. The designers of 
the 6502 assembly language created a set of symbols and rules 
that matches 6502 machine language as closely as possible. 

This means that the assembler retains some of the 
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disadvantages of machine language. For instance, the process 
of adding two large numbers takes dozens of instructions in 
6502 machine language. If human programmers had to code 
those dozens of instructions in the ones and zeros of machine 
language, there would be very few human programmers. 

But the process of adding two large numbers in 6502 
assembly language also takes dozens of instructions. The 
assembly language instructions are easier for a programmer to 
read and remember, but they still have a one-to-one cor¬ 
respondence with the dozens of machine language 
instructions. The programming is easier, but the process 
remains the same. 

High Level Languages 

High level languages, like Atari BASIC, Atari PILOT, and Atari 
Pascal, are simpler for people to use because they more closely 
approximate human speech and thought patterns. However, 
the computer still understands only machine language. So the 
high level languages, while seeming simple to their users, are 
really much more complex in their internal operations than 
assembly language. 

Each high level language is designed to meet the specific 
need of some group of people. Atari Pascal is designed to 
implement the concept of structured programming. Atari 
PILOT is designed as a teaching tool. Atari BASIC is designed 
to serve both the needs of the novice who is just learning to 
program a computer and the needs of the expert programmer 
who is writing a sophisticated application program, but wants 
the program to be accessible to a large number of users. 

Each of these languages uses a different set of symbols and 
symbol-combining rules. But all these language translators 
were themselves written in assembly language. 

Language Translation Methods 

There are two different methods of performing language 
translation — compilation and interpretation. Languages which 
translate via interpretation are called interpreters. Languages 
which translate via compilation are called compilers. 

Interpreters examine the program source text and simulate 
the operations desired. Compilers translate the program source 
text into machine language for direct machine execution. 
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The compilation method tends to produce faster, more 
efficient programs than does the interpretation method. 
However, the interpretation method can make programming 
easier. 

Problems with the Compiler Method 

The compiler user first creates a program source file on a disk, 
using a text editing program. Then the compiler carefully 
examines the source program text and generates the machine 
language as required. Finally, the machine language code is 
loaded and executed. While this three-step process sounds 
fairly simple, it has several serious "gotchas." 

Language translators are very particular about their 
symbols and symbol-combining rules. If a symbol is 
misspelled, if the wrong symbol is used, or if the symbol is not 
in exactly the right place, the language translator will reject it. 
Since a compiler examines the entire program in one gulp, one 
misplaced symbol can prevent the compiler from 
understanding any of the rest of the program — even though 
the rest of the program does not violate any rules! The result is 
that the user often has to make several trips between the text 
editor and the compiler before the compiler successfully 
generates a machine language program. 

But this does not guarantee that the program will work. If 
the programmer is very good or very lucky, the program will 
execute perfectly the very first time. Usually, however, the user 
must debug the program. 

This nearly always involves changing the source program, 
usually many times. Each change in the source program sends 
the user back to step one: after the text editor changes the 
program, the compiler still has to agree that the changes are 
valid, and then the machine code version must be tested again. 
This process can be repeated dozens of times if the program is 
very complex. 

Faster Programming or Faster Programs? 

The interpretation method of language translation avoids many 
of these problems. Instead of translating the source code into 
machine language during a separate compiling step, the 
interpreter does all the translation while the program is running. 
This means that whenever you want to test the program you're 
writing, you merely have to tell the interpreter to run it. If 
things don't work right, stop the program, make a few 
changes, and run the program again at once. 
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You must pay a few penalties for the convenience of using 
the interpreter's interactive process, but you can generally 
develop a complex program much more quickly than the 
compiler user can. 

However, an interpreter is similar to a compiler in that the 
source code fed to the interpreter must conform to the rules of 
the language. The difference between a compiler and an 
interpreter is that a compiler has to verify the symbols and 
symbol-combining rules only once — when the program is 
compiled. No evaluation goes on when the program is 
running. The interpreter, however, must verify the symbols 
and symbol-combining rules every time it attempts to run the 
program. If two identical programs are written, one for a 
compiler and one for an interpreter, the compiled program will 
generally execute at least ten to twenty times faster than the 
interpreted program. 


Pre-compiling Interpreter 

Atari BASIC has been incorrectly called an interpreter. It does 
have many of the advantages and features of an interpretive 
language translator, but it also has some of the useful features 
of a compiler. A more accurate term for Atari's BASIC 
Language Translator is pre-compiling interpreter. 

Atari BASIC, like an interpreter, has a text editor built into 
it. When the user enters a source line, though, the line is not 
stored in text form, but is translated into an intermediate code, 
a set of symbols called tokens. The program is stored by the 
editor in token form as each program line is entered. Syntax 
and symbol errors are weeded out at that time. 

Then, when you run the program, these tokens are 
examined and their functions simulated; but because much of 
the evaluation has already been done, the execution of an Atari 
BASIC program is faster than that of a pure interpreter. Yet 
Atari BASIC's program-building process is much simpler than 
that of a compiler. 

Atari BASIC has advantages over compilers and 
interpreters alike. With Atari BASIC, every time you enter a 
line it is verified for language correctness. You don't have to 
wait until compilation; you don't even have to wait until a test 
run. When you type RUN you already know there are no 
syntax errors in your program. 
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Internal Design 
Overview 


Atari BASIC is divided into two major functional areas: the 
Program Constructor and the Program Executor. The Program 
Constructor is used when you enter and edit a BASIC program. 
The source line pre-compiler, also part of the Program 
Constructor, translates your BASIC program source text lines 
into tokenized lines. The Program Executor is used to execute 
the tokenized program — when you type RUN, the Program 
Executor takes over. 

Both the Program Constructor and the Program Executor 
are designed to use data tables. Some of these tables are 
already contained in BASIC's ROM (read-only memory). 
Others are constructed by BASIC in the user RAM (random- 
access memory). Understanding these various tables is an 
important key to understanding the design of Atari BASIC. 

Tokens 

In Atari BASIC, tokens are the intermediate code into which 
the source text is translated. They represent source-language 
symbols that come in various lengths — some as long as 100 
characters (a long variable name) and others as short as one 
character (" + " or "-"). Every token, however, is exactly one 
eight-bit byte in length. 

Since most BASIC Language Symbols are more than one 
character long, the representation of a multi-character BASIC 
Language Symbol with a single-byte token can mean a 
considerable saving of program storage space. 

A single-byte token symbol is also easier for the Program 
Executor to recognize than a multi-character symbol, since it 
can be evaluated by machine language routines much more 
quickly. The SEARCH routine — 76 bytes long — located at 
$A462 is a good example of how much assembly language it 
takes to recognize a multi-character symbol. On the other 
hand, the two instructions located at $AB42 are enough to 
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determine if a one-byte token is a variable. Because routines to 
recognize Atari BASIC's one-byte tokens take so much less 
machine language, they execute relatively quickly. 

The 256 possible tokens are divided into logical numerical 
groups that also make them simpler to deal with in assembly 
language. For example, any token whose value is 128 ($80) or 
greater represents a variable name. The logical grouping of the 
token values also means faster execution speeds, since, in 
effect, the computer only has to check bit 7 to recognize a 
variable. 

The numerical grouping of the tokens is shown below: 

Token Value (Hex) Description 

00-0D Unused 

0E Floating Point Numeric Constant. 

The next six bytes will hold its value. 

OF String Constant. 

The next byte is the string length. 

A string of that length follows. 

10-3C Operators. 

See table starting at $A7E3 for specific 
operators and values. 

3D-54 Functions. 

See table starting at $A820 for specific 
functions and values. 

55-7F Unused. 

80-FF Variables. 

In addition to the tokens listed above, there is another set 
of single-byte tokens, the Statement Name Tokens. Every 
statement in BASIC starts with a unique statement name, such 
as LET, PRINT, and POKE. (An assignment statement such as 
"A = B + C," without the word LET, is considered to begin with 
an implied LET.) Each of these unique statement names is 
represented by a unique Statement Name Token. 

The Program Executor does not confuse Statement Name 
Tokens with the other tokens because the Statement Name 
Tokens are always located in the same place in every statement 
— at the beginning. The Statement Name Token value is 
derived from its entry number, starting with zero, in the 
Statement Name Table at $A4AF. 
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Tables 

A table is a systematic arrangement of data or information. 
Tables in Atari BASIC fall into two distinct types: tables that are 
part of the Atari BASIC ROM and tables that Atari BASIC 
builds in the user RAM area. 

ROM Tables 

The following is a brief description of the various tables in the 
Atari BASIC ROM. The detailed use of these tables will be 
explained in subsequent chapters. 

Statement Name Table ($A4AF). The first two bytes in each 
entry point to the information in the Statement Syntax Table 
for this statement. The rest of the entry is the name of the 
statement name in ATASCII. Since name lengths vary, the last 
character of the statement name has the most significant bit 
turned on to indicate the end of the entry. The value of the 
Statement Name Token is derived from the relative (from zero) 
entry number of the statement name in this table. 

Statement Execution Table ($AA00). Each entry in this table 
is the two-byte address of the 6502 machine language code 
which will simulate the execution of the statement. This table is 
organized with the statements in the same order as the 
statements in the Statement Name Table. Therefore, the 
Statement Name Token can be used as an index to this table. 
Operator Name Table ($A7E3). Each entry comprises the 
ATASCII text of an Operator Symbol. The last character of each 
entry has the most significant bit turned on to indicate the end 
of the entry. The relative (from zero) entry number, plus 16 
($10), is the value of the token for that entry. Each of the entries 
is also given a label whose value is the value of the token for 
that symbol. For example, the symbol at $A7E8 is the fifth 
(from zero) entry in the table. The label for the token is 
CSC, and the value of CSC is $15, or 21 decimal (1*16 + 5). 
Operator Execution Table ($AA70). Each two-byte entry 
points to the address, minus one, of the routine which 
simulates the execution of an operator. The token value, minus 
16, is used to access the entries in this table during execution 
time. The entries in this table are in the same order as in the 
Operator Name Table. 

Operator Precedence Table ($AC3F). Each entry 
represents the relative execution precedence of an individual 
operator. The table entries are accessed by the operator tokens. 
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minus 16. Entries correspond with the entries in the Operator 
Name Table. (See Chapter 7.) 

Statement Syntax Table ($A60D). Entries in this table are 
used in the process of translating the source program to tokens. 
The address pointer in the first part of each entry in the 
Statement Name Table is used to access the specific syntax 
information for that statement in this table. (See Chapter 5.) 

RAM Tables 

The tables that BASIC builds in the user RAM area will be 
explained in detail in Chapter 3. The following is a brief 
description of these tables: 

Variable Name Table. Each entry contains the source 
ATASCII text for the corresponding user variable symbol in the 
program. The relative (from zero) entry number of each entry 
in this table, plus 128, becomes the value of the token 
representing the variable. 

Variable Value Table. Each entry either contains or points 
to the current value of a variable. The entries are accessed by 
the token value, minus 128. 

Statement Table. Each entry is one tokenized BASIC 
program line. The tokenized lines are kept in this table in 
ascending numerical order by line number. 

Array/String Table. This table contains the current values 
for all strings and numerical arrays. The location of the specific 
values for each string and/or array variable is accessed from 
information in the Variable Value Table. 

Runtime Stack. This is the LIFO Runtime Stack, used to 
control the execution of GOSUB/RETURN and similar 
statements. 

Pre-compiler 

Atari BASIC translates the BASIC source lines from text to 
tokens as soon as they are entered. To do this. Atari BASIC 
must recognize the symbols of the BASIC Language. BASIC 
also requires that its symbols be combined in certain specific 
patterns. If the symbols don't follow the required patterns, 
then Atari BASIC cannot translate the line. The process of 
checking a source line for the required symbol patterns is called 
syntax checking. 

BASIC performs syntax checking as part of the tokenizing 
process. When the Program Editor receives a completed line of 
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input, the editor hands the line to the syntax routine, which 
examines the first word of the line for a statement name. If a 
valid statement name is not found, then the line is assumed to 
be an implied LET statement. 

The grammatical rules for each statement are contained in 
the Statement Syntax Table. A special section of code examines 
the symbols in the source line, under the direction of the 
grammatical rules set forth in the Statement Syntax Table. If 
the source line does not conform to the rules, then it is reported 
back as an error. Otherwise, the line is translated to tokens. 

The result of this process is returned to the Program Editor for 
further processing. 

Program Editor 

When Atari BASIC is not executing statements, it is in the edit 
mode. When the user enters a source line and hits return, the 
editor accepts the line into a line buffer, where it is examined 
by the pre-compiler. The pre-compiler returns either tokens or 
an error text line. 

If the line started with a line number, the editor inserts the 
tokenized line into the Statement Table. If the Statement Table 
already contains a line with the same line number, then the old 
line is removed from the Statement Table. The new line is then 
inserted just after the statement with the next lower line 
number and just before the statement with the next higher line 
number. 

If the line has no line number, the editor inserts the line at 
the end of the Statement Table. It then passes control to the 
Program Executor, which will carry out the statement(s) in the 
line at the end of the Statement Table. 

Program Executor 

The Program Executor has a pointer to the statement that it is to 
execute. When control is passed to the executor, the pointer 
points to the direct (command) line at the end of the statement 
table. If that statement causes some other line to be executed 
(RUN, GOTO, GOSUB, etc.), the pointer is changed to the 
new line. Lines continue to be executed as long as nothing 
stops that execution (END, STOP, error, etc.). When the 
program execution is stopped, the Program Executor returns 
control to the editor. 
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When a statement is to be executed, the Statement Name 
Token (the first code in the statement) directs the interpreter to 
the specific code that executes that statement. For instance, if 
that token represents the PRINT statement, the PRINT 
execution code is called. The execution code for each statement 
then examines the other tokens and simulates their operations. 

Execute Expression 

Arithmetic and logical expressions (A + B, C/D + E, F< G, etc.) 
are simulated with the Execute Expression code. Expression 
operators ( + ,-,*, etc.) have execution precedence — some 
operators must be executed before some others. The 
expression 1 + 3*4 has a value of 13 rather than 16 
because * had a higher precedence than + . To properly 
simulate expressions, BASIC rearranges the expression with 
higher precedence first. 

BASIC uses two temporary storage areas to hold parts of 
the rearranged expression. One temporary storage area, the 
Argument Stack, holds arguments — values consisting of 
constants, variables, and temporary values resulting from 
previous operator simulations. The other temporary storage 
area, the Operator Stack, holds operators. Both temporary 
storage areas are managed as Last-In/First-Out (LIFO) stacks. 

LIFO Stacks 

A LIFO (Last In/First Out) stack operates on the principle that 
the last object placed in the stack storage area will be the first 
object removed from it. If the letters A, B, C, and D, in that 
order, were placed in a LIFO stack, then D would be the first 
letter removed, followed by C, B, and A. The operations 
required to rearrange the expression using these stacks will be 
explained in Chapter 7. 

BASIC also uses another LIFO stack, the Runtime Stack, in 
the simulation of statements such as GOSUB and FOR. 

GOSUB requires that BASIC remember where in the statement 
table the GOSUB was located so it will return to the right spot 
when RETURN is executed. If more than one GOSUB is 
executed before a RETURN, BASIC returns to the statement 
after the most recent GOSUB. 
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Memory Usage 


Many of BASIC's functions are controlled by a set of tables 
built in RAM not already occupied by BASIC or the Operating 
System (OS). Figure 3.1 is a diagram of memory use by both 
programs. Every time a BASIC programmer enters a statement, 
memory requirements for the RAM tables change. Memory use 
by the OS also varies. Different graphics modes, for example, 
require different amounts of memory. 

These changing memory requirements are monitored, and 
this series of pointers keeps BASIC and the OS from overlaying 
each other in memory: 

• High memory address (HMADR) at location $02E5 

• Application high memory (APHM) at location $000E 

• Low memory address (LMADR) at location $02E7 

When a graphics mode requires larger screen space, the OS 

checks the application high memory address (APHM) that has 
been set by BASIC. If there is enough room for the new screen, 
the OS Uses the upper portion of space and sets the pointer 
HMADR to the bottom of the screen to tell the application how 
much space the OS is now using. 

BASIC builds its table toward high memory from low 
memory. The pointer to the lowest memory available to an 
application, called LMADR in the BASIC listing, is set by the 
OS to tell BASIC the lowest memory address that BASIC can 
use. When BASIC needs more room for one of its tables, 

BASIC checks HMADR. If there is enough room, BASIC uses 
the space and puts the highest address it has used into APHM 
for OS. 

BASIC's operation consists primarily of building, reading, 
and modifying tables. Pointers to the RAM tables are kept in 
consecutive locations in zero page starting at $80. These tables 
are, in order, 

• Multipurpose Buffer 

• Variable Name Table 

• Variable Value Table 

• String/Array Table 
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• Statement Table 

• Runtime Stack 

BASIC reserves space for a buffer at LMADR. It then builds 
the tables contiguously (without gaps), starting at the top of the 
buffer and extending as far as necessary towards APHM. When 
a new entry needs to be added to a table, all data in the tables 
above is moved upward the exact amount needed to fit the new 
entry into the right place. 

Figure 3-1. Memory Usage 
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Variable Name Table 

The Variable Name Table (VNT) is built during the pre-compile 
process. It is read, but not modified, during execution — but 
only by the LIST statement. The VNT contains the names of the 
variables used in the program in the order in which they were 
entered. 

The length of entries in the Variable Name Table depends 
on the length of the variable name. The high order bit of the 
last character of the name is on. For example, the ATASCII code 
for the variable name ABC is 41 42 43 (expressed in 
hexadecimal). In the Variable Name Table it looks like this: 

41 42 C3 

The $ character of a string name and the ( character of an 
array element name are stored as part of the variable name. The 
table entries for variables C, AA$, and X(3) would look like 
this: 

C C3 
AA$ 41 41 A4 

X(3) 58 A8 

It takes only two bytes to store X(3) because this table stores 
only X(. 

A variable is represented in BASIC by a token. The value of 
this token is the position (relative to zero) of the variable name 
in the Variable Name Table, plus $80. BASIC references an 
entry in the table by using the token, minus $80, as an index. 
The Variable Name Table is not changed during execution time. 

The zero page pointer to the Variable Name Table is called 
VNTP in the BASIC listing. 

Variable Value Table 

The Variable Value Table (VVT) is also built during the pre¬ 
compile process. It is both read and modified during execution. 
There is a one-to-one correspondence in the order of entries 
between the Variable Name Table and the Variable Value Table. 
If XXX is the fifth variable in the Variable Name Table, then 
XXX's value is the fifth entry in the Variable Value Table. 

BASIC references a table entry by using the variable token, 
minus $80, as an index. 

Each entry in the Variable Value Table consists of eight 
bytes. The first two bytes have the following meaning: 
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1 2 


type vnum 

type = one byte, which indicates the type of variable 
$00 for floating point variable 
$40 for array variable 
$80 for string variable 

vnum = one byte, which indicates the relative position of the 
variable in the tables 

The meaning of the next six bytes varies, depending on the 
type of variable (floating point, string, or array). In all three 
cases, these bytes are initialized to zero during syntaxing and 
during the execution of the RUN or CLR. 

When the variable is a floating point number, the six bytes 
represent its value. 

When the variable is an array, the remaining six bytes have 
the following format: 

disp diml dim2 

disp = the two-byte displacement into string/array space of 
this array variable 

dim 1 = two bytes indicating the first dimension value 
diml = two bytes indicating the second dimension value 

All three of these values are set appropriately when the array is 
DIMensioned during execution. 

When the variable is a string, the remaining six bytes have 
the following meaning: 

12345678 


disp curl maxi 
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disp = the two-byte displacement into string/array space of 
this string variable. This value is set when the string is 
DIMensioned during execution. 
curl = the two-byte current length of the string. This value 
changes as the length of the string changes during 
execution. 

maxi = the two-byte maximum possible length of this string. 
This value is set to the DIM value during execution. 

When either a string or an array is DIMensioned during 
execution, the low-order bit in the type byte is turned on, so 
that the array type is set to $41 and the string type to $81. 

The zero page pointer to the Variable Value Table is called 
WTP in the BASIC listing. 

Statement Table 

The Statement Table, built as each statement is entered during 
editing, contains tokenized forms of the statements that were 
entered. This table determines what happens during 
execution. 

The format of a Statement Table entry is shown in Figure 
3-2. There can be several tokens per statement and several 
statements per line. 

Figure 3-2. Format of a Statement Table Entry 


Inum lien slen snt toks eos slen snt toks eos eol 

Inum = the two-byte line number (low-order, high-order) 
lien = the one-byte line length (the displacement to the next 
line in the table) 

slen = the one-byte statement length (the displacement to 
the next statement in the line) 
snt = the one-byte Statement Name Token 
toks = the other tokens that make up the statement (this 
is variable in length) 

eos = the one-byte end of statement token 
eol - the one-byte end of line token 

The zero page pointer to the Statement Table is called 
STMTAB in the BASIC listing. 
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String/Array Table 

The String/Array Table (also called String/ Array Space) is 
created and modified during execution. Strings and arrays can 
be intermixed in the table, but they have different formats. 
Each array or string is pointed to by an entry in the Variable 
Value Table. The entry in the String/Array Table is created 
when the string or array is DIMensioned during execution. The 
data in the entry changes during execution as the value of the 
string or an element of the array changes. 

An entry in the String/Array Table is not initialized to any 
particular value when it is created. The elements of arrays and 
the characters in a string cannot be counted upon to have any 
particular value. They can be zero, but they can also be garbage 
— data previously stored at those locations. 

Array Entry 

For an array, the String/Array Table contains one six-byte entry 
for each array element. Each element is a floating point 
number, stored in raveled order. For example, the entry in the 
String/Array Table for an array that was dimensioned as A(l,2) 
contains six elements, in this order: 

A(0,0) A(0,1) A(0,2) A(1,0) A(l,l) A(l,2) 

String Entry 

A string entry in the String/Array Table is created during 
execution, when the string is DIMensioned. The size of the 
entry is determined by the DIM value. The "value" of the 
string to BASIC at any time is determined by the data in the 
String/ Array Table and the current length of the string as set in 
the Variable Value Table. 

The zero page pointer to the String/Array Table is called 
STARP in the BASIC listing. 


The Runtime Stack is created during execution. BASIC uses 
this LIFO stack to control processing of FOR/NEXT loops and 
GOSUBs. When either a FOR or a GOSUB statement is 
encountered during execution, an entry is put on the Runtime 
Stack. When a NEXT, RETURN, or a POP statement is 
encountered, entries are pulled off the stack. 

Both the FOR entry and the GOSUB entry have a four-byte 
header: 
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T 


type lnum disp 

type = one byte indicating the type of element 
GOSUB type = 0 
FOR type = non-zero 

lnum = the two-byte number of the line which contains the 
statement (low-order, high-order) 
disp = one byte indicating the displacement into the line in 
the Statement Table of the token which caused this 
stack entry. 

The FOR-type byte is actually the token representing the 
loop control variable from the FOR statement. (In the statement 
FOR I = 1 to 10,1 is the loop control variable.) So the FOR-type 
byte will have a value of $80 through $FF — the possible values 
of a variable token. 

The FOR entry contains 12 additional bytes, formatted like 
this: 

1 23456 789 10 11 12 

I-1-1-1-1-1-1-1-1-1-1-1-1 

I _l_I_I_I_I_ I _I_I_I_I_i_ I 

sval step 

sval = the six-byte (floating point) limit value at which to 
stop the loop 

step = the six-byte (floating point) STEP value to increment 
by 

The GOSUB entry consists entirely of the four-byte header. 
The LIST and READ statements also put a GOSUB type entry 
on the Runtime Stack, so that the line containing the LIST or 
READ can be found again when the statement has finished 
executing. 

The zero page pointer to the Runtime Stack is called 
RUNSTK in the BASIC listing. 
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Zero Page Table Pointers 

The starting addresses of the tables change dynamically during 
both program construction and program execution. BASIC 
keeps the current start addresses of the tables and other 
pointers required to manage memory space in contiguous zero- 
page cells. Each pointer is a two-byte address, low byte first. 

Since these zero page cell addresses remain constant, 
BASIC is always able to find the tables. Here are the zero page 
pointers used in memory management, their names in the 
BASIC listing, and their addresses: 


Multipurpose Buffer 


$80, $81 

Variable Name Table 

VNTP 

$82, $83 

VNT dummy end 

VNTD 

$84, $85 

Variable Value Table 

VVTP 

$86, $87 

Statement Table 

STMTAB 

$88, $89 

Current Statement Pointer 

STMCUR 

$8A, $8B 

String/Array Table 

STARP 

$8C, $8D 

Runtime Stack 

RUNSTK 

$8E,$8F 

Top of used memory 

MEMTOP 

$90, $91 


Memory Management Routines 

Memory Management routines allocate space to the BASIC 
tables as needed. There are two routines: expand, to add space, 
and contract, to delete space. Each routine has one entry point 
for cases in which the number of bytes to be added or deleted is 
less than 256, and another when it is greater than or equal to 
256. 

The EXPAND and CONTRACT routines often move many 
thousands of bytes each time they are called. The 6502 
microprocessor is designed to move fewer than 256 bytes of 
data very quickly. When larger blocks of data are moved, the 
additional 6502 instructions required can make the process very 
slow. The EXPAND and CONTRACT routines circumvent this 
by using the less-than-256-byte fast-move capabilities in the 
movement of thousands of bytes. The end result is a set of very 
fast and very complex data movement routines. 

All of this complexity does have a drawback. The infamous 
Atari BASIC lock-up problem lives in these two routines. If an 
EXPAND or CONTRACT requires that an exact multiple of 256 
bytes be moved, then the routines move things from the wrong 
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place in memory to the wrong place in memory, whereupon 
the computer locks up and won't respond. The only way to 
avoid losing hours of work this way is to SAVE to disk or 
cassette frequently. 

EXPAND ($A881) 

Parameters at entry: 
register 

X = the zero page address containing the pointer to 
the location after which space is to be added 

Y = the low-order part of the number of bytes to 

expand 

A = the high-order part of the number of bytes to 
expand 

The routine creates a hole in the table memory, starting at a 
requested location and continuing the requested number of 
bytes. 

The routine first checks to see that there is enough free 
memory space to satisfy the request. 

It adds the requested expand size to each of the zero-page 
table pointers between the one pointed to by the X register and 
MEMTOP. Then each pointer will point to the correct address 
when EXPAND is done. 

EXPAND then creates space at the address indicated by the 
X register. The number of bytes required is contained in the Y 
and A registers. (Y contains the least significant byte, while A 
contains the most significant.) All data from the requested 
address to the address pointed to by MEMTOP is moved 
toward high memory by the requested number of bytes. This 
creates a hole of the proper size. 

The routine then sets Application High Memory (APHM) 
to the value in MEMTOP. This tells the OS the highest memory 
address that BASIC is currently using. 

EXPLOW ($A87F) 

Parameters at entry: 
register 

X = zero page address containing the pointer to the 
location after which space is to be added 

Y = number of bytes to expand (low-order byte only) 


21 



Chapter Three 


This is an additional entry point for the EXPAND routine. It 
is used when the number of bytes to be added to the table is 
less than 256. 

This routine first loads the 6502 accumulator with zero to 
indicate the most significant byte of the expand length. It then 
functions exactly like EXPAND. 

CONTRACT ($A8FD) 

Parameters at entry: 
register 

X = zero page address containing the pointer to the 
starting location where space is to be removed 
Y = the low-order part of the number of bytes to 
contract 

A = the high-order part of the number of bytes to 
contract 

This routine removes a requested number of bytes at a 
requested location by moving all the data from higher in the 
tables downward the exact amount needed to replace the 
unwanted bytes. 

It subtracts the requested contract size from each of the 
zero page table pointers between the one pointed to by the X 
register and MEMTOP. Then each pointer will point to the 
correct address when CONTRACT is done. 

The routine sets application high memory (APHM) to the 
value in MEMTOP to indicate to the OS the highest memory 
address that BASIC is currently using. 

The block of data to be moved downward is defined by 
starting at the address pointed to by the zero-page address 
pointed to in X, plus the offset number stored in Y and A, and 
then continuing to the address specified at MEMTOP. Each 
byte of data in that block is moved downward in memory by 
the number of bytes specified in Y and A, effectively erasing all 
the data between the specified address and that address plus 
the requested offset. 

CONTLOW ($A8FB) 

Parameters at entry: 
register 

X = the zero page address containing the pointer to 
the location at which space is to be removed 
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Y = the number of bytes to contract (low-order byte 
only) 

This routine is used to remove fewer than 256 bytes from 
the tables at a requested location by moving all the data from 
higher in the tables downward the exact amount needed to 
replace the unwanted bytes. 

This routine first loads the 6502 accumulator with zero to 
serve as the most significant byte of the contract length. It then 
functions exactly like CONTRACT. 

Miscellaneous Memory Allocations 

Besides the tables, which change dynamically, BASIC also uses 
buffers and stacks at fixed locations. 

The Argument/Operator Stack is allocated at BASIC's low 
memory address and occupies 256 bytes. During pre-compiling 
it is used as the output buffer for the tokens. During execution, 
it is used while evaluating an expression. This buffer/stack is 
referenced by a pointer at location $80. This pointer has several 
names in the BASIC listing: LOMEM, ARGOPS, ARGSTK, 
and OUTBUFF. 

The Syntax Stack is used during the process of syntaxing a 
statement. It is referenced directly — that is, not through a 
pointer. It is located at $480 and is 256 bytes long. 

The Line Buffer is the storage area where the statement is 
placed when it is ENTERed. It is the input buffer for the edit 
and pre-compile processes. It is 128 bytes long and is 
referenced directly as LBUFF. Often the address of LBUFF is 
also put into INBUFF so that the buffer can be referenced 
through a pointer, though INBUFF can point to other locations 
during various phases of BASIC's execution. 


23 






Chapter Four 


Program Editor 


The Atari keyboard is the master control panel for Atari BASIC. 
Everything BASIC does has its origins at this control panel. The 
Program Editor's job is to service the control panel and respond 
to the commands that come from it. 

The editor gets a line from the user at the keyboard; does 
some preliminary processing on the line; passes the line to the 
pre-compiler for further processing; inserts, deletes, or 
replaces the line in the Statement Table; calls the Program 
Executor when necessary; and then waits to receive the user's 
next line input. 

Line Processing 

The Program Editor, which starts at $A060, begins its process 
by resetting the 6502 CPU stack. Resetting the CPU stack is a 
drastic operation that can only occur at the beginning of a 
logical process. Each time Atari BASIC prepares to get a new 
line from the user, it restarts its entire logical process. 

Getting a Line 

The Program Editor gets a user's line by calling CIO. The origin 
of the line is transparent to the Program Editor. The line may 
have been typed in at the keyboard or entered from some 
external device like the disk (if the ENTER command was 
given). The Program Editor simply calls CIO and asks it to put a 
line of not more than 255 bytes into the buffer pointed to by 
INBUFF ($F3). INBUFF points to the 128-byte area defined at 
LBUFF ($580). 

The OS's screen editor, which is involved in getting a line 
from the keyboard, will not pass BASIC a line that is longer 
than 120 bytes. Normally, then, the 128-byte buffer at LBUFF is 
big enough to contain the user's line. 

Sometimes, however, if a line was originally entered from 
the keyboard with few blanks and many abbreviations, then 
LISTed to and re-ENTERed from the disk, an input line may be 
longer than 128 bytes. When this happens, data in the $600 
page is overlaid. A LINE TOO LONG error will not necessarily 
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occur at this point. A LINE TOO LONG error occurs only if the 
Pre-compiler exceeds its stack while processing the line or if 
the tokenized line OUTBUFF exceeds 256 bytes. These 
overflows depend on the complexity of the line rather than on 
its actual length. 

When CIO has put a line into the line buffer (LBUFF) and 
the Program Editor has regained control, it checks to see if the 
user has changed his mind and hit the break key. If the user did 
indeed hit break, the Program Editor starts over and asks CIO 
for another line. 

Flags and Indices 

In order to help control its processing, the Program Editor uses 
flags and indices. These must be given initial values. 

CIX and COX. The index CIX ($F2) is used to access the user's 
input line in the line buffer (LBUFF), while COX ($94) is used to 
access the tokenized statement in the output buffer 
(OUTBUFF). These buffers and their indices are also used by 
the pre-compiler. The indices are initialized to zero to indicate 
the beginning of the buffers. 

DIRFLG. This flag byte ($A6) is used by the editor to remember 
whether a line did or did not have a line number, and also to 
remember if the pre-compiler found an error in that line. 
DIRFLG is initialized to zero to indicate that the line has a line 
number and that the pre-compiler has not found an error. 
MAXCIX. This byte ($9F) is maintained in case the line contains 
a syntax error. It indicates the displacement into LBUFF of the 
error. The character at this location will then be displayed in 
inverse video. The Program Editor gives this byte the same 
initial value as CIX, which is zero. 

SVVNTP. The pointer to the current top of the Variable Name 
Table (VNTD) is saved as SVVNTP ($AD) so that if there is a 
syntax error in this line, any variables that were added can be 
removed. If a user entered an erroneous line, such as 100 
A = XAND B, the variable XAND would already have been 
added to the variable tables before the syntax error was 
discovered. The user probably meant to enter 100 A = X AND B, 
and, since there can only be 128 variables in BASIC, he 
probably does not want the variable XAND using up a place in 
the variable tables. The Program Editor uses SVVNTP to find 
the entry in the Variable Name Table so it can be removed. 
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SVVVTE. The process used to indicate which variable entries to 
remove from the Variable Value Table in case of error is 
different. The number of new variables in the line 
(SVVVTE,$B1) is initialized to zero. The Program Pre-compiler 
increments the value every time it adds a variable to the 
Variable Value Table. If a syntax error is detected, this number 
is multiplied by eight (the number of bytes in each entry on the 
Variable Value Table) to get the number of bytes to remove, 
counting backward from the most recent value entered. 

Handling Blanks 

In many places in the BASIC language, blanks are not 
significant. For example, 

100IFX = 6THENGOTO500 
has the same meaning as 

100 IF X = 6 THEN GOTO 500. 

The Program Editor, using the SKIPBLANK routine 
($DBA1), skips over unnecessary blanks. 

Processing the Line Number 

Once the editor has skipped over any leading blanks, it begins 
to examine the input line, starting with the line number. The 
floating point package is called to determine if a line number is 
present, and, if so, to convert the ATASCII line number to a 
floating point number. The floating point number is converted 
to an integer, saved in TSLNUM for later use, and stored in the 
tokenized line in the output buffer (OUTBUFF). 

The routine used to store data into OUTBUFF is called 
:SETCODE ($A2C8). When :SETCODE stores a byte into 
OUTBUFF, it also increments COX, that buffer's index. 

BASIC could convert the ATASCII line number directly to 
an integer, but the routine to do this would not be used any 
other time. Routines to convert ATASCII to floating point and 
floating point to integer already exist in BASIC for other 
purposes. Using these existing routines conserves ROM space. 

An interesting result of this sequence is that it is valid to 
enter a floating point number as a line number. For example, 
100.1, 10.9, or 2.05E2 are valid line numbers. They would be 
converted to 100,11, and 205 respectively. 

If the input line does not start with a line number, the line 
is considered to be a direct statement. DIRFLG is set to $80 so 
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that the editor can remember this fact. The line number is set to 
32768 ($8000). This is one larger than the largest line number a 
user is allowed to enter. BASIC later makes use of this fact in 
processing the direct statement. 

Line length. The byte after the line number in the tokenized 
line in OUTBUFF is reserved so that the line length (actually 
the displacement to the next line) can be inserted later. (See 
Chapter 2.) The routine rSETCODE is called to reserve the byte 
by incrementing (COX) to indicate the next byte. 

Saving erroneous lines. In the byte labeled STMSTRT, the 
Program Editor saves the index into the line buffer (LBUFF) of 
the first non-blank character after the line number. This index 
is used only if there is a syntax error, so that all the characters 
in the erroneous line can be moved into the tokenized line 
buffer and from there into the Statement Table. 

There are advantages to saving an erroneous line in the 
Statement Table, because you can LIST the error line later. The 
advantage is greatest, not when entering a program at the 
keyboard, but when entering a program originally written in a 
different BASIC on another machine (via a modem, perhaps). 
Then, when a line that is not correct in Atari BASIC is entered, 
the line is flagged and stored — not discarded. The user can 
later list the program, find the error lines, and re-enter them 
with the correct syntax for Atari BASIC. 

Deleting lines. If the input line consists solely of a line number, 
the Program Editor deletes the line in the Statement Table 
which has that line number. The deletion is done by pointing to 
the line in the Statement Table, getting its length, and calling 
CONTRACT. (See Chapter 3.) 

Statement Processing 

The user's input line may consist of one or more statements. 
The Program Editor repeats a specific set of functions for each 
statement in the line. 

Initializing 

The current index (COX) into the output buffer (OUTBUFF) is 
saved in a byte called STMLBD. A byte is reserved in 
OUTBUFF by the routine :SETCODE. Later, the value in 
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STMLBD will be used to access this byte, and the statement 
length (the displacement to the next statement) will be stored 
here. 

Recognizing the Statement Name 

After the editor calls SKBLANK to skip blanks, it processes the 
statement name, now pointed to by the input index (CIX). The 
editor calls the routine SEARCH ($A462) to look for this 
statement name in the Statement Name Table. SEARCH saves 
the table entry number of this statement name into location 
STENUM. 

The entry number is also the Statement Name Token value, 
and it is stored into the tokenized output buffer (OUTBUFF) as 
such by :SETCODE. The SEARCH routine also saves the 
address of the entry in SRC ADR for use by the pre-compiler. 

If the first word in the statement was not found in the 
Statement Name Table, the editor assumes that the statement 
is an implied LET, and the appropriate token is stored. It is left 
to the pre-compiler to determine if the statement has the 
correct syntax for LET. 

The editor now gives control to the pre-compiler, which 
places the appropriate tokens in OUTBUFF, increments the 
indices CIX and COX to show current locations, and indicates 
whether a syntax error was detected by setting the 6502 carry 
flag on if there was an error and clearing the carry flag if there 
was not. (See Chapter 5.) 

If a Syntax Error Is Detected 

If the 6502 carry flag is set when the editor regains control, the 
editor does error processing. 

In MAX CIX, the pre-compiler stored the displacement 
into LBUFF at which it detected the error. The Program Editor 
changes the character at this location to inverse video. 

The character in inverse video may not be the point of error 
from your point of view, but it is where the pre-compiler 
detected an error. For example, assume you entered X = YAND 
Z. You probably meant to enter X = Y AND Z, and therefore 
would consider the error to be between Y and AND. However, 
since YAND is a valid variable name, X = YAND is a valid 
BASIC statement. 

The pre-compiler doesn't know there is an error until it 
encounters B. The value of highlighting the error with inverse 
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video is that it gives the user an approximation of where the 
error is. This can be a big advantage, especially if the input line 
contained multiple statements or complex expressions. 

The next thing the editor does when a syntax error has 
been detected is set a value in DIRFLG to indicate this fact for 
future reference. Since the DIRFLG byte also indicates whether 
this is a direct statement, the error indicator of $40 is ORed with 
the value already in DIRFLG. 

The editor takes the value that it saved in STMSTRT and 
puts it into CIX so that CIX now points to the start of the first 
statement in the input line in LBUFF. STMLBD is set to indicate 
the location of the first statement length byte in OUTBUFF. (A 
length will be stored into OUTBUFF at this displacement at a 
later time.) 

The editor sets the index into OUTBUFF (COX) to indicate 
the Statement Name Token of the first statement in OUTBUFF, 
and stores a token at that location to indicate that this line has a 
syntax error. The entire line (after the line number) is moved 
into OUTBUFF. At this point COX indicates the end of the line 
in OUTBUFF. (Later, the contents of OUTBUFF will be moved 
to the Statement Table.) 

This is the end of the special processing for an erroneous 
line. The process that follows is done for both correct and 
erroneous lines. 

Final Statement Processing 

During initial line processing, the Program Editor saved in 
STMLBD a value that represents the location in OUTBUFF at 
which the statement length (displacement to the next 
statement) should be stored. The Program Editor now retrieves 
that value from STMLBD. Using this value as an index, the 
editor stores the value from COX in OUTBUFF as the 
displacement to the next statement. 

The Program Editor checks the next character in LBUFF. If 
this character is not a carriage return (indicating end of the 
line), then the statement processing is repeated. When the 
carriage return is found, COX will be the displacement to the 
next line. The Program Editor stores COX as the line length at a 
displacement of two into OUTBUFF. 
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Statement Table Processing 

The final tokenized form of the line exists in OUTBUFF at this 
point. The Program Editor's next task is to insert or replace the 
line in the Statement Table. 

The Program Editor first needs to create the correct size 
hole in the Statement Table. The editor calls the GETSTMT 
routine ($A9A2) to find the address where this line should go 
in the Statement Table. If a line with the same line number 
already exists, the routine returns with the address in 
STMCUR and with the 6502 carry flag off. Otherwise, the 
routine puts the address where the new line should be inserted 
in the Statement Table into STMCUR and turns on the 6502 
carry flag. (See Chapter 6.) 

If the line does not exist in the Statement Table, the editor 
loads zero into the 6502 accumulator. If the line does exist, the 
editor calls the GETLL routine ($A9DD) to put the line length 
into the accumulator. The editor then compares the length of 
the line already in the Statement Table (old line) with the 
length of the line in OUTBUFF (new line). 

If more room is needed in the Statement Table, the editor 
calls the EXPLOW ($A87F; see Chapter 3). If less space is 
needed for the new line, it calls a routine to point to the next 
line (GNXTL, at location $A9D0; see Chapter 6), and then calls 
the CONTLOW ($A8FB; see Chapter 3). 

Now that we have the right size hole, the tokenized line is 
moved from OUTBUFF into the Statement Table at the location 
indicated by STMCUR. 

Line Wrap-up 

After the line has been added to the Statement Table, the editor 
checks DIRFLG for the syntax error indicator. If the second 
most significant bit ($40) is on, then there is an error. 

Error Wrap-up 

If there is an error, the editor removes any variables that were 
added by this line by getting the number of bytes that were 
added to the Variable Name Table and the Variable Value Table 
from SWNTP and SVWTE. It then calls CONTRACT ($A8FD) 
to remove the bytes from each table. 

Next, the editor lists the line. The Statement Name Token, 
which was set to indicate an error, causes the word "ERROR" 
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to be printed. An inverse video character indicates where the 
error was detected. The editor now waits for you to enter 
another line. 

Handling Correct Lines 

If the line was syntactically correct, the editor again examines 
DIRFLG. In earlier processing, the most significant bit ($80) of 
this byte was set on if the line was a direct statement. If it is not 
a direct statement, then the editor is finished with the line, and 
it waits for another input line. 

If the line is a direct statement, earlier processing already 
assigned it a line number of 32768 ($8000), one larger than the 
largest line number a user can enter. Since lines are arranged in 
the Statement Table in ascending numerical order, this line will 
have been inserted at the end of the table. The current 
statement pointer (STMCUR—$8A, $8B) points to this line. 

The Program Editor transfers control to a Program Executor 
routine. Execution Control (EXECNL at location $A95F), which 
will handle the execution of the direct statement. (See 
Chapter 6.) 
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The Pre-compiler 


The symbols and symbol-combining rules of Atari BASIC are 
coded into Syntax Tables, which direct the Program Pre¬ 
compiler in examining source code and producing tokens. The 
information in the Syntax Tables is a transcription of a meta¬ 
language definition of Atari BASIC. 

The Atari BASIC Meta-language 

A meta-language is a language which describes or defines 
another language. Since a meta-language is itself a language, it 
also has symbols and symbol-combining rules — which define 
with precision the symbols and symbol-combining rules of the 
subject language. 

Atari BASIC is precisely defined with a specially developed 
meta-language called the Atari BASIC Meta-language, or 
ABML. (ABML was derived from a commonly used compiler- 
technology meta-language called BNF.) The symbols and 
symbol-combining rules of ABML were intentionally kept very 
simple. 

Making Up a Language 

To show you how ABML works, we'll create an extremely 
simple language called SAP, for Simple Arithmetic Process. 
SAP symbols consist of variables, constants, and operators. 

• Variables: The letters A, B, and C only. 

• Constants: The numbers 1,2,3,4,5,6,7,8, and 9 only. 

• Operators: The characters + ,-,*, /, and ! only. Of 

course, you already know the functions of all 
the operators except The character ! is a 
pseudo-operator of the SAP language used 
to denote the end of the expression, like the 
period that ends this sentence. 

The grammar of the SAP language is precisely defined by 
the ABML definition in Figure 5-1. 
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Figure 5-1. The SAP Language Expressed in ABML 


SAP 

< expression > 
< operation > 
< value > 

< constant > 

< variable > 

< operator > 


< expression >! 

< value > < operation > | 

< operator > < expression > 

< constant > | < variable > 
1|2|3|4|5|6|7|8|9 
A | B | C 

+ 1 - 1 * 1 / 


The ABML symbols used to define the SAP language in Figure 
5-1 are: 


: = is defined as Whatever is on the left of : = is defined as 
consisting of whatever is on the right of: =, 
and in that order. 

| or The symbol | allows choices for what 

something is defined as. For instance, in the 
sixth line < variable > can be A or B or C. 

If | does not appear between two symbols, 
then there is no choice. For example, in the 
second line < expression > must have both 
< value > and < operation >, in that order, 
to be valid. 

< > label Whatever comes between < and > is an 

ABML label. All labels, as non-terminal 
symbols, must be defined at some point, 
though the definitions can be circular — 
notice that < operation > is part of the 
definition of < expression > in the second 
line, while in the third line < expression > 
is part of the definition of < operation >. 
terminal Symbols used in definitions, which are not 

symbols enclosed by < and > and are also not one 

of the ABML symbols, are terminal symbols 
in the language being defined by ABML. In 
SAP, some terminal symbols are A, !, B, *, 
and 1. They cannot be defined as consisting 
of other symbols — they are themselves the 
symbols that the SAP language manipu- 
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lates, and must appear exactly as they are 
shown to be valid in SAP. In effect, they are 
the vocabulary of the SAP language. 

Statement Generation 

The ABML description of SAP can be used to generate 
grammatically correct statements in the SAP language. To do 
this, we merely start with the first line of the definition and 
replace the non-terminal symbols with the definitions of those 
symbols. The replacement continues until only terminal 
symbols remain. These remaining terminal symbols constitute 
a grammatically correct SAP statement. 

Since the or statement requires that one and only one of the 
choices be used, we will have to arbitrarily replace the non¬ 
terminal with the one valid choice. 

Figure 5-2 illustrates the ABML statement generation 
process. 


Figure 5-2. The Generation of One Possible SAP 


Statement 


(1) SAP 

= < expression >! 

(2) SAP 

= < value > < operation >! 

(3) SAP 

= < variable > < operation >! 

(4) SAP 

= B < operation >! 

(5) SAP 

= B < operator > < expression >! 

(6) SAP 

= B * < expression >! 

(7) SAP 

= B* < value > < operation >! 

(8) SAP 

= B * < constant > < operation > ! 

(9) SAP 

= B*4 < operation >! 

(10) SAP 

= B *4 < operator > < expression > ! 

(11) SAP 

= B*4 + < expression > ! 

(12) SAP 

= B *4 + < value > < operation >! 

(13) SAP 

= B*4 + < variable > < operation > 

(14) SAP 

= B *4 + C < operation >! 

(15) SAP 

= B*4+C! 


In (2), < value > < operation > replaces < expression > 
because the ABML definition of SAP (Figure 5-1) defines 
< expression > as < value > < operation > . 

In (3), the non-terminal < value > is replaced with 
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< variable > . The definition of < value > gives two choices for 
the substitution of < value >. We happened to choose 

< variable >. 

In (4), we reach a terminal symbol, and the process of 
defining < value > ends. We happened to choose B to replace 

< variable >. 

In (5), we go back and start defining < operation > . There 
are two choices for the replacement of < operation >, either 

< operator > < expression > or nothing at all (since there is 
nothing to the right of I in the second line of Figure 5-1). If 
nothing had been chosen, then (5) would have been: SAP : =B! 
The statement B! has no further non-terminals; the process 
would have been finished, and a valid statement would have 
been produced. Instead we happened to choose 

< operator > < expression > . 

The SAP definition for < expression > is 

< value > < operation > . If we replace < operation > with its 
definition we get: 

< expression > : = < value > < operator > < expression > 
The definition of < expression > includes < expression > 
as part of its definition. If the < operator > < expression> 
choice were always made for < operation >, then the process 
of replacement would never stop. A SAP statement can be 
infinitely long by definition. The only thing which prevents us 
from always having an infinitely long SAP statement is that 
there is a second choice for the replacement of < operation > : 
nothing. 

The replacements in (5) and (10) reflect the repetitive 
choices of defining < expression > in terms of itself. The choice 
in (15) reflects the nothing choice and thus finishes the 
replacement process. 

Computerized Statement Generation 

If we slightly modify our procedure for generating statements, 
we will have a process that could be easily programmed into a 
computer. Instead of arbitrarily replacing the definition of non¬ 
terminals, we can think of the non-terminal as a GOSUB. 

When we see <X> : = <Y> <Z>, we can think of <Y> as 
being a subroutine-type procedure: 

(a) Go to the line that has < Y > on the left side. 

(b) Process the definition (right side) of < Y > . 
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(c) If while processing the definition of < Y >, other non¬ 
terminals are found, GOSUB to them. 

(d) If while processing the definition of < Y > we 
encounter a terminal, output the terminal symbol as the 
next symbol of the generated statement. 

(e) When the definition of < Y > is finished, return to the 
place that < Y> was called from and continue. 

Since ABML is structured so that it can be programmed, a 
fascinating exercise is to design a simple English sentence 
grammar with ABML, then write a BASIC program to generate 
valid English sentences at random. The randomness of the 
sentences would be derived by using the RND function to 
select from the definitions or choices. An example of such a 
grammar is shown in Figure 5-3. (The programming exercise is 
left to you.) 

Figure 5-3. A Simple English Sentence Grammar in ABML 


SENTENCE 

< subject > 
< verb > 

< adverb > 

< object > 

< noun > 
< adjective > 


: = < subject > < adverb > < verb > < object >. 
:= The < adjective > <noun> 

: = eats | sleeps | drinks | talks | hugs 
: = quickly | silently | slowly | viciously | 
lovingly f sadly | 

: = at home | in the car | at the table | at 
school | < subject > 

: = boy | girl | dog | programmer | computer 
| teacher 

: = happy | sad | blue | light | round | smart 
| cool | nice | 


Syntactical Analysis 

The process of examining a language statement for 
grammatical correctness is called syntactical analysis, or 
syntaxing. 

Statement verification is similar to statement generation. 
Instead of arbitrarily choosing which or definition to use, 
however, the choices are already made, and we must check to 
see whether the statement symbols are used in valid patterns. 
To do this, we must process through each or definition until we 
find a matching valid terminal symbol. 

The result of statement generation is a valid, grammatically 
correct statement, but the result of statement verification is a 
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statement validity indication, which is a simple yes or no. Either 
the statement is grammatically correct or it is not. Failure 
occurs when some statement symbol cannot be matched with a 
valid terminal symbol under the rules of the grammar. 

The Reporting System 

To use the pass/fail result of statement verification, we must 
build a reporting system into the non-terminal checking 
process. Whenever we, in effect, GOSUB to a non-terminal 
definition, that non-terminal definition must report its pass/fail 
status. 

A fail status is generated and returned by a non-terminal 
definition when it finds no matching terminal for the current 
statement symbol. If the current statement symbol is B and the 

< constant > definition in the SAP language is called, then 

< constant > would report a fail status to the routine that 
called it. 

A pass status is returned when a terminal symbol is found 
which matches the current statement symbol. If our current 
statement symbol had been 7 instead of B, then < constant > 
would have reported pass. 

Whenever such a match does occur, we return to the 
statement, and the next symbol to the right becomes the new 
current symbol for examination and verification. 

Cycling Through the Definitions 

In SAP, the < constant > definition is called from the < value > 
definition. If < constant > reports fail, then we examine the 
next or choice, which is < variable >. The current symbol is B, 
so < variable > reports pass. 

Since at least one of the or choices of < value > has 
reported pass, < value > will report pass to its caller. If both 

< constant > and < variable > had reported fail, then 

< value > would report fail to its caller. 

The caller of < value > is < expression >. If < value > 
reports pass, < operation> is called. If < operation> reports 
pass, then < expression > can report pass to its caller. If either 

< value > or < operation > reports fail, then < expression > 
must report fail, since there are no other or choices for 

< expression >. 

The definition of < operation > contains a special pass/fail 
property. If either < operator > or < expression > reports fail, 
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then the or choice must be examined. In this case the or choice 
is nothing. The or nothing means something special: report pass, 
but do not advance to the next symbol. 

The final pass/fail report is generated from the first line of 
the definition. If < expression> reports pass and the next 
symbol is !, then SAP reports pass. If either one of these 
conditions has a fail status, then SAP must report fail to 
whatever called SAP from outside the language. 

Backing Up 

Sometimes it is necessary to back up over symbols which have 
already been processed. Let's assume that there was a 
definition of the type <X> : = <Y>|<Z>. Itis possible that 
while < Y > is attempting to complete its definition, it will find 
a number of valid matching terminal symbols before it 
discovers a symbol that it cannot match. In this case, < Y > 
would have consumed a number of symbols before it decided 
to report fail. All of the symbols that < Y > consumed must be 
wnconsumed before < Z > can be called, since < Z > will need 
to check those same symbols. 

The process of unconsuming symbols is called backup. 
Backup is usually performed by the caller of < Y>, which 
remembers which source symbol was current when it called 
< Y >. If < Y > reports fail, then the caller of < Y > restores the 
current symbol pointer before calling < Z > . 

Locating Syntax Error 

When a final report of fail is given for a statement, it is often 
possible to guess where the error occurred. In a left-to-right 
system, the symbol causing the failure is usually the symbol 
which follows the rightmost symbol found to be valid. If we 
keep track of the rightmost valid symbol during the various 
backups, we can report a best guess as to where the failure- 
causing error is located. This is exactly what Atari BASIC does 
with the inverse video character in the ERROR line. 

For simplicity, our example was coded for SAP, but the 
syntactical analysis we have just described is essentially the 
process that the Atari BASIC pre-compiler uses to verify the 
grammar of a source statement. The Syntax Tables are an 
ABML description of Atari BASIC. The pre-compiler, also 
known as the syntaxer, contains the routines which verify 
BASIC statements. 
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Statement Syntax Tables 

There is one entry in the Syntax Tables for each BASIC 
statement. Each statement entry in the Syntax Table is a 
transcription of an ABML definition of the grammar for that 
particular statement. The starting address of the table entry for 
a particular statement is pointed to by that statement's entry in 
the Statement Name Table. 

The data in the Syntax Tables is very much like a computer 
machine language. The pseudo-computer which executes this 
pseudo-machine language is the pre-compiler code. Like any 
machine language, the pseudo-machine language of the Syntax 
Tables has instructions and instruction operands. For example, 
an ABML non-terminal symbol is transcribed to a code which 
the pre-compiler executes as a type of "GOSUB and report 
pass/fail" command. 

Here are the pseudo-instruction codes in the Syntax Tables; 
each is one byte in length. 

Absolute Non-Terminal Vector 

Name: ANTV 

Code: $00 

This is one of the forms of the non-terminal GOSUB. It is 
followed by the address, minus 1, of the non-terminal's 
definition within the Syntax Table. The address is two bytes 
long, with the least significant byte first. 

External Subroutine Call 

Name: ESRT 

Code: $01 

This instruction is a special type of terminal symbol 
checker. It is followed by the address, minus 1, of a 6502 
machine language routine. The address is two bytes long, with 
the least significant byte first. The ESRT instruction is a deus ex 
machina — the "god from the machine" who solved 
everybody's problems at the end of classical Greek plays. 

There are some terminals whose definition in ABML would be 
very complex and require a great many instructions to describe. 
In these cases, we go outside the pseudo-machine language of 
the Syntax Tables and get help from 6502 machine language 
routines — the deus ex machina that quickly gives the desired 
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result. A numeric constant is one example of where this outside 
help is required. 

ABML or 

Name: OR 
Value: $02 

This is the familiar ABML or symbol ( | ). It provides for an 
alternative definition of a non-terminal. 

Return 

Name: RTN 
Value: $03 

This code signals the end of an ABML definition line. 

When we write an ABML statement on paper, the end of a 
definition line is obvious — there is no further writing on the 
line. When ABML is transcribed to machine codes, the 
definitions are all pushed up against each other. Since the 
function that is performed at the end of a definition is a return, 
the end of definition is called return (RTN). 

Unused (Codes $04 through $0D are unused.) 

Expression Non-Terminal Vector 

Name: VEXP 
Value: $0E 

The ABML definition for an Atari BASIC expression is 
located at $A60D. Nearly every BASIC statement definition 
contains the possibility of having < expression > as part of it. 
VEXP is a single-byte call to < expression >, to avoid wasting 
the two extra bytes that ANTV would take. The pseudo¬ 
machine understands that this instruction is the same as an 
ANTV call to < expression > at $A60D. 

Change Last Token 

Name: CHNG 
Value: $0F 

This instruction is followed by a one-byte change to token 
value. The operator token instructions cause a token to be 
placed into the output buffer. Sometimes it is necessary to 
change the token that was just produced. For example, there 
are several = operators. One = operator is for the assignment 
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statement LET X = 4. Another = operator is for comparison 
operations like IF Y = 5. The pseudo-machine will generate the 
assignment = token when it matches =. The context of the 
grammar at that point may have required a comparison = token. 
The CHNG instruction rectifies this problem. 

Operator Token 

Name: (many) 

Value: $10 through $7F 

These instructions are terminal codes for the Atari BASIC 
Operators. The code values are the values of each operator 
token. The values, value names, and operator symbols are 
defined in the Operator Name Table (see Chapter 2). 

When the pseudo-machine sees these terminal symbol 
representations, it compares the symbol it represents to the 
current symbol in the source statement. If the symbols do not 
match, then fail status is generated. If the symbols match, then 
pass status is generated, the token (instruction value) is placed 
in the token output buffer, and the next statement source 
symbol becomes the current symbol for verification. 

Relative Non-Terminal Vectors 

Name: (none) 

Value: $80 - $BF (Plus) 

$C0 — $FF (Minus) 

This instruction is similar to ANTV, except that it is a single 
byte. The upper bit is enough to signal that this one-byte code 
is a non-terminal GOSUB. The destination address of the 
GOSUB is given as a position relative to the current table 
location. The values $80 through $BF correspond to an address 
which is at the current table address plus $00 through $3F. The 
values $C0 through $FF correspond to an address which is at 
the current table address minus $01 through $3F. 

Pre-compiler Main Code Description 

The pre-compiler, which starts at SYNENT ($A1C3), uses the 
pseudo-instructions in the Syntax Tables to verify the 
correctness of the source line and to generate the tokenized 
statements. 
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Syntax Stack 

The pre-compiler uses a LIFO stack in its processing. Each time 
a non-terminal vector ("GOSUB") is executed, the pre¬ 
compiler must remember where the call was made from. It 
must also remember the current locations in the input buffer 
(source statement) and the output buffer (tokenized statement) 
in case the called routine reports fail and backup is required. 
This LIFO stack is called the Syntax Stack. 

The Syntax Stack starts at $480 at the label SIX. The stack is 
256 bytes in size. Each entry in the stack is four bytes long. The 
stack can hold 64 levels of non-terminal calls. If a sixty-fifth 
stack entry is attempted, the LINE TOO LONG error is 
reported. (This error should be called LINE TOO COMPLEX, 
but the line is most likely too long also.) 

The first byte of each stack entry is the current input index 
(CIX). The second byte is the current output index (COX). The 
final two bytes are the current address within the syntax tables. 

The current stack level is managed by the STKLVL ($A9) 
cell. STKLVL maintains a value from $00 to $FC, which is the 
displacement to the current top of the stack entry. 

Initialization 

The editor has saved an address in SRC ADR ($96). This 
address is the address, minus 1, of the current statement's 
ABML instructions in the Syntax Tables. The current input 
index (CIX) and the current output index (COX) are also preset 
by the editor. 

The initialization code resets the syntax stack manager 
(STKLVL) to zero and loads the first stack entry with the values 
in CIX, COX, and CPC — the current program counter, which 
holds the address of the next pseudo-instruction in the Syntax 
Tables. 

PUSH 

Values are placed on the stack by the PUSH routine ($A228). 
PUSH is entered with the new current pseudo-program 
counter value on the CPU stack. PUSH saves the current CIX, 
COX, and CPC on the syntax stack and increments STKLVL. 
Next, it sets a new CPC value from the data on the CPU stack. 
Finally, PUSH goes to NEXT. 
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POP 

Values are removed from the stack with the POP routine 
($A252). POP is entered with the 6502 carry flag indicating 
pass/fail. If the carry is clear, then pass is indicated. If the carry is 
set, then fail is indicated. 

POP first checks STKLVL. If the current value is zero, then 
the pre-compiler is done. In this case, POP returns to the editor 
via RTS. The carry bit status informs the editor of the pass/fail 
status. 

If STKLVL is not zero, POP decrements STKLVL. 

At this point, POP examines the carry bit status. If the carry 
is clear (pass), POP goes to NEXT. If the carry is set (fail), POP 
goes to FAIL. 

NEXT and the Processes It Calls 

After initialization is finished and after each Syntax Table 
instruction is processed, NEXT is entered to process the next 
syntax instruction. 

NEXT starts by calling NXSC to increment CPC and get the 
next syntax instruction into the A register. The instruction 
value is then tested to determine which syntax instruction code 
it is and where to go to process it. 

If the Syntax Instruction is OR ($02) or RTN ($03), then exit 
is via POP. When POP is called due to these two instructions, 
the carry bit is always clear, indicating pass. 

ERNTV. If the instruction is RNTV ("GOSUB " $80 - $FF), 
then ERNTV ($A201) is entered. This code calculates the new 
CPC value, then exits via PUSH. 

GETADR. If the instruction is ANTV ($00) or the deus ex 
machina ESRT ($01) instruction, then GETADR is called. 
GETADR obtains the following two-byte address from the 
Syntax Table. 

If the instruction was ANTV, then GETADR exits via 
PUSH. 

If the instruction was ESRT, then GETADR calls the 
external routine indicated. The external routine will report 
pass/fail via the carry bit. The pass/fail condition is examined at 
$A1F0. If pass is indicated, then NEXT is entered. If fail is 
indicated, then FAIL is entered. 

TERMTST. If the instruction is VEXP ($0E), then the code at 
$A1F9 will go to TERMTST ($A2A9), which will cause the code 
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at $A2AF to be executed for VEXP. This code obtains the 
address, minus 1, of the ABML for the < expression > in the 
Syntax Table and exits via PUSH. 

ECHNG. If the instruction was CHNG ($0F), then ECHNG 
($A2BA) is entered via tests at $A1F9 and $A2AB. ECHNG will 
increment CPC and obtain the change-to token which will then 
replace the last previously generated token in OUTBUFF. 
ECHNG exits via RTS, which will take control back to NEXT. 
SRCONT. The Operator Token Instructions ($10-$7F) are 
handled by the SRCONT routine. SRCONT is called via tests at 
$A1F9 and $A2AD. SRCONT will examine the current source 
symbol to see if it matches the symbol represented by the 
operator token. When SRCONT has made its determination, it 
will return to the code at $A1FC. This code will examine the 
pass/fail (carry clear/set) indicator returned by SRCONT and 
take the appropriate action. (The SRCONT routine is detailed 
on the next page.) 

FAIL 

If any routine returns a fail indicator, the FAIL code at $A26C 
will be entered. FAIL will sequentially examine the 
instructions, starting at the Syntax Table address pointed to by 
CPC, looking for an OR instruction. 

If an OR instruction is found, the code at $A27D will be 
entered. This code first determines if the current statement 
symbol is the rightmost source symbol to be examined thus far. 
If it is, it will update MAXCIX. The editor will use MAXCIX to 
set the inverse video flag if the statement is erroneous. Second, 
the code restores CIX and COX to their before-failure values 
and goes to NEXT to try this new OR choice. 

If, while searching for an OR instruction, FAIL finds a RTN 
instruction, it will call POP with the carry set. Since the carry is 
set, POP will re-enter FAIL once it has restored things to the 
previous calling level. 

All instruction codes other than OR and RTN are skipped 
over by FAIL. 
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Pre-compiler Subroutine Descriptions 

SRCONT ($A2E6) 

The SRCONT code will be entered when an operator token 
instruction is found in the Syntax Tables by the main pre¬ 
compiler code. The purpose of the routine is to determine if the 
current source symbol in the user's line matches the terminal 
symbol represented by the operator token. If the symbols 
match, the token is placed into the output buffer and pass is 
returned. If the symbols do not match, fail is returned. 

SRCONT uses the value of the operator token to access the 
terminal symbol name in the Operator Name Table. The 
characters in the source symbol are compared to the characters 
in the terminal symbol. If all the characters match, pass is 
indicated. 

TNVAR, TSVAR ($A32A) 

These deus ex machina routines are called by the ESRT 
instruction. The purpose of the routines is to determine if the 
current source symbol is a valid numeric (TNVAR) or string 
(TSVAR) variable. If the source symbol is not a valid variable, 
fail is returned. 

When pass is indicated, the routine will put a variable token 
into the output buffer. The variable token ($80-$FF) is an index 
into the Variable Name Table and the Variable Value Table, 
plus $80. 

The Variable Name Table is searched. If the variable is 
already in the table, the token value for the existing variable is 
used. If the variable is not in the table, it will be inserted into 
both tables and a new token value will be used. 

A source symbol is considered a valid variable if it starts 
with an alphabetic character and it is not a symbol in the 
Operator Name Table, which includes all the reserved words. 

The variable is considered to be a string if it ends with $; 
otherwise it is a numeric variable. If it is a string variable, $ is 
stored with the variable name characters. 

The routine also determines if the variable is an array by 
looking for (. If the variable is an array, (is stored with the 
variable name characters in the Variable Name Table. As a 
result, ABC, ABC$, and ABC(n) are all recognized as different 
variables. 
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TNCON ($A400) 

TNCON is called by the ESRT instruction. Its purpose is to 
examine the current source symbol for a numeric constant, 
using the floating point package. If the symbol is not a numeric 
constant, the routine returns fail. 

If the symbol is a numeric constant, the floating point 
package has converted it to a floating point number. The 
resulting six-byte constant is placed in the output buffer 
preceded by the $0E numeric constant token. The routine then 
exits with pass indicated. 

TSCON ($A428) 

TSCON is called by the ESRT instruction. Its purpose is to 
examine the current symbol for a string constant. If the symbol 
is not a string constant, the routine returns fail. 

If the first character of the symbol is ", the symbol is a 
string constant. The routine will place the string constant token 
($0F) into the output buffer, followed by a string length byte, 
followed by the string characters. 

The string constant consists of all the characters that follow 
the starting double quote up to the ending double quote. If the 
EOL character ($9B) is found before the ending double quote, 
an ending double quote is assumed. The EOL is not part of the 
string. The starting and ending double quotes are not saved 
with the string. All 256 character codes except $9B (EOL) and 
$22 (") are allowed in the string. 

SEARCH ($A462) 

This is a general purpose table search routine used to find a 
source symbol character string in a table. 

The table to be searched is assumed to have entries which 
consist of a fixed length part (0 to 255 bytes) followed by a 
variable length ATASCII part. The last character of the ATASCII 
part is assumed to have the most significant bit ($80) on. The 
last table entry is assumed to have the first ATASCII character 
as $00. 

Upon entry, the X register contains the length of the fixed 
part of the table (0 to 255). The A, Y register pair points to the 
start of the table to be searched. The source string for 
comparison is pointed to by INBUFF plus the value in CIX. 

Upon exit, the 6502 carry flag is clear if a match was found, 
and set if no match was found. The X register points to the end 
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of the symbol, plus 1, in the buffer. The SRC ADR ($95) two- 
byte cell points to the matched table entry. STENUM ($AF) 
contains the number, relative to zero, of the matched table 
entry. 

SETCODE (A2C8) 

The SETCODE routine is used to place a token in the next 
available position in the output (token) buffer. The value in 
COX determines the current displacement into the token 
buffer. After the token is placed in the buffer, COX is 
incremented by one. If COX exceeds 255, the LINE TOO 
LONG error message is generated. 
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Execution Overview 


During the editing and pre-compiling phase, the user's 
statements were checked for correct syntax, tokenized, and put 
into the Statement Table. Then direct statements were passed 
to the Program Executor for immediate processing, while 
program statements awaited later processing by the Program 
Executor. 

We now enter the execution phase of Atari BASIC. The 
Program Executor consists of three parts: routines which 
simulate the function of individual statement types; an 
expression execution routine which processes expressions (for 
example, A + B + 3, A$(l,3), "HELP", A(3) + 7.26E-13); and the 
Execution Control routine, which manages the whole process. 

Execution Control 

Execution Control is invoked in two situations. If the user 
has entered a direct statement, Execution Control does some 
initial processing and then calls the appropriate statement 
execution routine to simulate the requested operation. If the 
user has entered RUN as a direct statement, the statement 
execution routine for RUN instructs Execution Control to start 
processing statements from the beginning of the statement 
table. 

When the editor has finished processing a direct statement, 
it initiates the Execution Control routine EXECNL ($A95F). 
Execution Control's job is to manage the process of statement 
simulation. 

The editor has saved the address of the statement it 
processed in STMCUR and has put the statement in the 
Statement Table. Since this is a direct statement, the line 
number is $8000, and the statement is saved as the last line in 
the Statement Table. 

The fact that a direct statement is always the last statement 
in the Statement Table gives a test for the end of a user's 
program. 

The high-order byte of the direct statement line number 
($8000) has its most significant bit on. Loading this byte ($80) 
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into the 6502 accumulator will set the minus flag on. The line 
number of any program statement is less than or equal to 
$7FFF. Loading the high order byte ($7F or less) of a program 
line number into the accumulator will set the 6502 minus flag 
off. This gives a simple test for a direct statement. 

Initialization 

Execution Control uses several parameters to help it manage 
the task of statement execution. 

STMCUR holds the address in the Statement Table of the 
line currently being processed. 

LLNGTH holds the length of the current line. 

NXTSTD holds the displacement in the current line of the 
next statement to process. 

STMCUR already contains the correct value when 
Execution Control begins processing. SETLN1 ($B81B) is called 
to store the correct values into LLNGTH and NXTSTD. 

Statement Execution 

Since the user may have changed his or her mind about 
execution, the routine checks to see if the user hit the break 
key. If the user did hit BREAK, Execution Control carries out 
XSTOP ($B793), the same routine that is executed when the 
STOP statement is encountered. At the end of its execution, 
the XSTOP routine gives control to the beginning of the editor. 

If the user did not hit BREAK, Execution Control checks to 
see whether we are at the end of the tokenized line. Since this 
is the first statement in the line, we can't be at the end of the 
line. So why do the test? Because this part of the routine is 
executed once for each statement in the line in order to tell us 
when we do reach the end of the line. (The end-of-line 
procedure will be discussed later in this chapter.) 

The statement length byte (the displacement to the next 
statement in the line) is the first byte in a statement. (See 
Chapter 3.) The displacement to this byte was saved in 
NXTSTD. Execution Control now loads this new statement's 
displacement using the value in NXTSTD. 

The byte after the statement length in the line is the 
statement name token. Execution Control loads the statement 
name token into the A register. It saves the displacement to the 
next byte, the first of the statement's tokens, in STINDEX for 
the use of the statement simulation routines. 
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The statement name token is used as an index to find this 
statement's entry in the Statement Execution Table. Each table 
entry consists of the address, minus 1, of the routine that will 
simulate that statement. This simulation routine is called by 
pushing the address from the table onto the 6502 CPU stack 
and doing an RTS. Later, when a simulation routine is 
finished, it can do an RTS and return to Execution Control. 

(The name of most of the statement simulation routines in the 
BASIC listing is the statement name preceded by an X: XFOR, 
XRUN, XLIST.) 

Most of the statement simulation routines return to 
Execution Control after processing. 

Execution Control again tests for BREAK and checks for the 
end of the line. As long as we are not at end-of-line, it 
continues to execute statements. When we reach end-of-line, it 
does some end-of-line processing. 

End-of-line Handling in a Direct Statement 

When we come to the end of the line in a direct statement, 
Execution Control has done its job and jumps to SNX3. The 
READY message is printed and control goes back to the 
Program Editor. 

End-of-line Handling during Program Execution 

Program execution is initiated when the user types RUN. 
Execution Control handles RUN like any other direct 
statement. The statement simulation routine for RUN initial¬ 
izes STMCUR, NXTSTD, and LLNGTH to indicate the first 
statement of the first line in the Statement Table, then returns 
to Execution Control. Execution Control treats this first 
program statement as the next statement to be executed, 
picking up the statement name tokens and calling the 
simulation routines. 

Usually, Execution Control is unaware of whether it is 
processing a direct statement or a program statement. End-of- 
line is the only time the routine needs to make a distinction. 

At the end of every program line. Execution Control gets 
the length of the current line and calls GNXTL to update the 
address in STMCUR to make the next line in the Statement 
Table the new current line. Then it calls TENDST ($A9E2) to 
test the new line number to see if it is another program line or a 
direct statement. If it is a direct statement, we are at the end of 
the user's program. 
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Since the direct statement includes the RUN command that 
started program execution. Execution Control does not execute 
the line. Instead, Execution Control calls the same routine that 
would have been called if the program had contained an END 
statement (XEND, at $B78D). XEND does some end-of- 
program processing, causes READY to be printed, and returns 
to the beginning of the editor. 

If we are not at the end of the user's program, processing 
continues with the new current line. 

Execution Control Subroutines 

TENDST ($A9E2) 

Exit parameters: The minus flag is set on if we are at the end of 
program. 

This routine checks for the end of the user's program in the 
Statement Table. 

The very last entry in the Statement Table is always a direct 
statement. Whenever the statement indicated by STMCUR is 
the direct statement, we have finished processing the user's 
program. 

The line number of a direct statement is $8000. The line 
number of any other statement is $7FFF or less. TENDST 
determines if the current statement is the direct statement by 
loading the high-order byte of the line number into the A 
register. This byte is at a displacement of one from the address 
in STMCUR. If this byte is $80 (a direct statement), loading it 
turns the 6502 minus flag on. Otherwise, the minus flag is 
turned off. 

GETSTMT ($A9A2) 

Entry parameters: TSLNUM contains the line number of the 
statement whose address is required. 

Exit parameters: If the line number is found, the STMCUR 
contains the address of the statement and the carry flag is set 
off (clear). If the line number does not exist, STMCUR contains 
the address where a statement with that line number should 
be, and the carry flag is set on (set). 

The purpose of this routine is to find the address of the 
statement whose line number is contained in TSLNUM. 

The routine saves the address currently in STMCUR into 
SAVCUR and then sets STMCUR to indicate the top of the 
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Statement Table. The line whose address is in STMCUR is 
called the current line or statement. 

GETSTMT then searches the Statement Table for the 
statement whose line number is in TSLNUM. The line number 
in TSLNUM is compared to the line number of the current line. 
If they are equal, then the required statement has been found. 
Its address is in STMCUR, so GETSTMT clears the 6502 carry 
flag and is finished. 

If TSLNUM is smaller than the current statement line 
number, GETSTMT gets the length of the current statement by 
executing GETLL ($A9DD). GNXTL ($A9D0) is executed to 
make the next line in the statement table the current statement 
by putting its address into STMCUR. GETSTMT then repeats 
the comparison of TSLNUM and the line number of the current 
line in the same manner. 

If TSLNUM is greater than the current line number, then a 
line with this line number does not exist. STMCUR already 
points to where the line should be, the 6502 carry flag is already 
set, and the routine is done. 

GETLL ($A9DD) 

Entry parameters: STMCUR indicates the line whose length is 
desired. 

Exit parameters: Register A contains the length of the 
current line. 

GETLL gets the length of the current line (that is, the line 
whose address is in STMCUR). 

The line length is at a displacement of two into the line. 
GETLL-loads the length into the A register and is done. 

GNXTL ($A9D0) 

Entry parameters: STMCUR contains the address of the current 
line, and register A contains the length of the current line. 

Exit parameters: STMCUR contains the address of the next 
line. 

This routine gets the next line in the statement table and 
makes it the current line. 

GNXTL adds the length of the current line (contained in 
the A register) to the address of the current line in STMCUR. 
This process yields the address of the next line in the statement 
table, which replaces the value in STMCUR. 
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SETLN1 ($B81B) 

Entry parameters: STMCUR contains the address of the current 
line. 

Exit parameters: LLNGTH contains the length of the 
current line. NXTSTD contains the displacement in the line to 
the next statement to be executed (in this case, the first 
statement in the line). 

This routine initializes several line parameters so that 
Execution Control can process the line. 

The routine gets the length of the line, which is at a 
displacement of two from the start of the line. 

SETLN1 loads a value of three into the Y register to indicate 
the displacement into the line of the first statement and stores 
the value into NXTSTD as the displacement to the next 
statement for execution. 

SETLINE ($B818) 

Entry parameters: TSLNUM contains the line number of a 
statement. 

Exit parameters: STMCUR contains the address of the 
statement whose line number is in TSLNUM. LLNGTH 
contains the length of the line. NXTSTD contains the 
displacement in the line to the next statement to be executed (in 
this case, the first statement in the line). Carry is set if the line 
number does not exist. 

This routine initializes several line parameters so that 
execution control can process the line. 

SETLINE first calls GETSTMT ($A9A2) to find the address 
of the line whose number is in TSLNUM and put that address 
into STMCUR. It then continues exactly like SETLN1. 
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Execute Expression 


The Execute Expression routine is entered when the Program 
Executor needs to evaluate a BASIC expression within a 
statement. It is also the executor for the LET and implied LET 
statements. 

Expression operators have an order of precedence; some 
must be simulated before others. To properly evaluate an 
expression. Execute Expression rearranges it during the 
evaluation. 

Expression Rearrangement Concepts 

Operator precedence rules in algebraic expressions are so 
simple and so unconscious that most people aren't aware of 
following them. When you evaluate a simple expression like 
Y = AX 2 + BX + C, you don't think: ''Exponentiation has a 
higher precedence than multiplication, which has a higher 
precedence than addition; therefore, I will first square the X, 
then perform the multiplication." You just do it. 

Computers don't develop habits or common sense — they 
have to be specifically commanded. It would be nice if we could 
just type Y = AX 2 + BX + C into our machine and have the 
computer understand, but instead we must separate all our 
variables with operators. We also have to learn a few new 
operators, such as * for multiply and A for 
exponentiation. 

Given that we are willing to adjust our thinking this much, 
we enter Y = A*X A 2 + B*X + C. The new form of expression 
does not quite have the same feel as Y = AX 2 + BX + C; we have 
translated normal human patterns halfway into a form the 
computer can use. 

Even the operation X A 2 causes another problem for the 
computer. It would really prefer that we give it the two values 
first, then tell it what to do with them. Since the computer still 
needs separators between items, we should write X A 2 as 
X,2, A . 

Now we have something the computer can work with. It 
can obtain the two values X,2, apply the operator A , and get a 
result without having to look ahead. 
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If we were to transcribe X A 2* A in the same manner, we 
would have X,2, A ,A,*. The value returned by X,2, A is the first 
value to multiply, so the value pair for multiplication is (X,2,A) 
and A. Again we have two values followed by an operator, and 
the computer can understand. 

If we continue to transcribe the expression by pairing 
values and operators, we find that we don't want to add the 
value X A 2*A to B; we want to add the value X A 2*A to B*X. 
Therefore, we need to tell the computer X,2, A ,A,*,B,X,*, +. 
The value pair for the operator + is (X,2,A 7 A,*) and (B,X,*). 

The value pair for the final operation, =, is (X,2, A ,A,*,B,X, 
*, +,C, +) and Y. So the complete translation of Y = AX 2 + BX + 

C is X,2, A ,A,*,B,X, *, + ,C, + ,Y, =. 

Very few people other than Forth programmers put up 
with this form of expression transcription. Therefore, Atari 
BASIC was designed to perform this translation for us, 
provided we use the correct symbols, like * and A . 

The Expression Rearrangement Algorithm 

The algorithm for expression rearrangement requires two LIFO 
stacks for temporary storage of the rearranged terms. The 
Operator Stack is used for temporarily saving operators; the 
Argument Stack is used for saving arguments. Arguments are 
values consisting of variables, constants, and the constant-like 
values resulting from previous expression operations. 

Operator Precedence Table 

The Atari BASIC User's Manual lists the operators by 
precedence. The highest-precedence operators, like <, >, and 
= <, are at the top of the list; the lowest-precedence operator, 
OR, is at the bottom. The operators at the top of the list get 
executed before the operators at the bottom of the list. 

The operators in the precedence table are arranged in the 
same order as the Operator Name Table. Thus the token values 
can be used as direct indices to obtain an operator precedence 
value. 

The entry for each operator in the Operator Precedence 
Table contains two precedence values, the go-onto-stack 
precedence and the come-off-stack precedence. When a new 
operator has been plucked from an expression, its go-onto- 
stack precedence is tested in relation to the top-of-stack 
operator's come-off-stack precedence. 
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Expression Rearrangement Procedure 

The symbols of the expression (the arguments and the 
operators) are accessed sequentially from left to right, then 
rearranged into their correct order of precedence by the 
following procedure: 

1. Initialize the Operator Stack with the Start Of Expression 
(SOE) operator. 

2. Get the next symbol from the expression. 

3. If the symbol is an argument (variable or constant), 
place the argument on the top of the Argument Stack. 

Go to step 2. 

4. If the symbol is an operator, save the operator in the 
temporary save cell, SAVEOP. 

5. Compare the go-onto-stack precedence of the operator 
in SAVEOP to the come-off stack precedence of the 
operator on the top of the Operator Stack. 

6. If the top-of-stack operator's precedence is less than the 
precedence of the SAVEOP operator, then the SAVEOP 
operator is pushed onto the Operator Stack. When the 
push is done, go back to step 2. 

7. If the top-of-stack operator's precedence is equal to or 
greater than the precedence of the SAVEOP operator, 
then pop the top-of-stack operator and execute it. When 
the execution is done, go back to step 5 and continue. 

The Expression Rearrangement Procedure has one 
apparent problem. It seems that there is no way to stop it. 

There are no exits for the "evaluation done" condition. This 
problem is handled by enclosing the expression with two 
special operators: the Start Of Expression (SOE) operator, and 
the End Of Expression (EOE) operator. Remember that SOE 
was the first operator placed on the Operator Stack, in step 1. 
Execution code for the SOE operator will cause the procedure 
to be exited in step 7, when SOE is popped and executed. The 
EOE operator is never executed. EOE's function is to force the 
execution of SOE. 

The precedence values of SOE and EOE are set to insure 
that SOE is executed only when the expression evaluation is 
finished. The SOE come-off-stack precedence is set so that its 
value is always less than all the other operators' go-onto-stack 
precedence values. The EOE go-onto-stack precedence is set so 
that its value is always equal to or less than all the other 
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operators' (including SOE's) come-off-stack precedence 
values. 

Because SOE and EOE precedence are set this way, no 
operator other than EOE can cause SOE to be popped and 
executed. Second, EOE will cause all stacked operators, 
including SOE, to be popped and executed. Since SOE is 
always at the start of the expression and EOE is always at the 
end of the expression, SOE will not be executed until the 
expression is fully evaluated. 

In actual practice, the SOE operator is not physically part of 
the expression in the Statement Table. The Expression 
Rearrangement Procedure initializes the Operator Stack with 
the SOE operator before it begins to examine the expression. 

There is no single operator defined as the End Of 
Expression (EOE) operator. Every BASIC expression is 
followed by a symbol like :, THEN, or the EOL character. All of 
these symbols function as operators with precedence 
equivalent to the precedence of our phantom EOE operator. 
The THEN token, for example, serves a dual purpose. It not 
only indicates the THEN action, but also acts as the EOE 
operator when it follows an expression. 

Expression Rearrangement Example 

To illustrate how the expression evaluation procedure works, 
including expression rearrangement, we will evaluate our 
Y = A*X A 2 + B*X + C example and see how the expression is 
rearranged to X,2, A ,A,*,B,X,*,+,C,+ ,Y, = with a correct 
result. To work our example, we need to establish a precedence 
table for the operators. The values in Figure 7-1 are similar to 
the actual values of these operators in Atari BASIC. The lowest 
precedence value is zero; the highest precedence value is $0F. 

Figure 7-1. Example Precedence Table 

operator go-on-stack come-off-stack 

symbol precedence precedence 

SOE NA $00 

+ $09 $09 

* $0A $0A 

A $0C $0C 

$0F $01 

! (EOE) $00 NA 
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Symbol values and notations. In the example steps, the 
term PSn refers to step n in the Expression Rearrangement 
Procedure (page 57). Step 5, for instance, will be called PS5. 

In the actual expression, the current symbol will be 
underlined. If B is the current symbol, then the actual 
expression will appear as Y = A*X 2 + B*X + C .In the 
rearranged expression, the symbols which have been evaluated 
up to that point will also be underlined. 

The values of the variables are: 


The variable values are assumed to be accessed when the 
variable arguments are popped for operator execution. 

The end-of-expression operator is represented by ! . 

Example step 1. 

Actual Expression: Y = A*XA2 + B*X + C! 

Rearranged Expression: X,2, A, A, *,B,X,*, + ,C, +, Y, =,! 
Argument Stack: 

Operator Stack: SOE 
SAVEOP: 

PS1 has been executed. The Operator Stack has been 
initialized with the SOE operator. We are ready to start 
processing the expression symbols. 

Example step 2. 

Actual Expression: X=A*XA2 + B*X + C! 

Rearranged Expression: X,2, A ,A,*,B,X,*, +,C, + ,Y, = ,! 
Argument Stack: Y 
Operator Stack: SOE 
SAVEOP: 

The first symbol, Y, has been obtained and stacked in the 
Argument Stack according to PS2 and PS3. 

Example step 3. 

Actual Expression: Y = A*XA 2 + B*X + C! 

Rearranged Expression: X,2, A ,A,*,B,X,*, +,C, +,Y, = ,! 
Argument Stack: Y 
Operator Stack: SOE, = 

SAVEOP: = 
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Operator = has been obtained via PS2. The relative 
precedences of SOE ($00) and = ($0F) dictate that the = be 
placed on the Operator Stack via PS6. 

Example step 4. 

Actual Expression: Y = A*XA2 + B*X + C! 

Rearranged Expression: X, 2, A, A, *, B, X, *, +, C, +,'Y, =,! 
Argument Stack: Y,A 
Operator Stack: SOE, = 

SAVEOP: 

The next symbol is A. This symbol is pushed onto the 
Argument Stack via PS3. 

Example step 5. 

Actual Expression: Y = A^XA2 + B*X + C! 

Rearranged Expression: X,2, A ,A,*,B,X,*, +,C, + ,Y, = ,! 
Argument Stack: Y,A 
Operator Stack: SOE, =, * 

SAVEOP: * 

The next symbol is the operator *. The relative precedence 
of * and = dictates that * be pushed onto the Operator Stack. 

Example step 6. 

Actual Expression: Y = A*XA2 + B*X + C! 

Rearranged Expression: X,2,A ,A,*,B,X,* / + ,C, + ,Y, = ,! 
Argument Stack: Y,A,X 
Operator Stack: SOE, =, * 

SAVEOP: 

The next symbol is the variable X. This symbol is stacked 
on the Argument Stack according to PS3. 

Example step 7. 

Actual Expression: Y = A*X A 2 + B*X + C! 

Rearranged Expression: X,2,A ,A,*,B,X,*, +,C, + ,Y, = ,! 
Argument Stack: Y,A,X 
Operator Stack: SOE, = ,*,A 
SAVEOP: A 

The next symbol is A . The relative precedence of the 
and the * dictate that A be stacked via PS6. 
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Example step 8. 

Actual Expression: Y = A*X A 2 + B *X + C! 

Rearranged Expression: X,2, A ,A / *,B/X,* / + / C / + ,Y / = / ! 
Argument Stack: Y,A,X,2 
Operator Stack: SOE, = ,*,a 
SAVEOP: 

The next symbol is 2. This symbol is stacked on the 
Argument Stack via PS3. 

Example step 9. 

Actual Expression: Y = A*X A 2 + B*X + C! 

Rearranged Expression: X,2,A , A, *,B,X, *, + ,C, +Y, =,! 
Argument Stack: Y,A,9 
Operator Stack: SOE, =, * 

SAVEOP: + 

The next symbol is the operator +. The precedence of the 
operator that was at the top of the stack, A , is greater than the 
precedence of +. PS7 dictates that the top-of-stack operator be 
popped and executed. 

The A operator is popped. Its execution causes arguments 
X and 2 to be popped from the Argument Stack, replacing the 
variable with the value that it represents and operating on the 
two values yielded: X A 2 = 3 A 2 = 9. The resulting value, 9, is 
pushed onto the Argument Stack. The + operator remains in 
SAVEOP. We continue at PS5. 

Note that in the rearranged expression the first symbols, 
X,2, a , have been evaluated according to plan. 

Example step 10. 

Actual Expression: Y = A*X A 2 + B*X + C! 

Rearranged Expression: X / 2 / A / A / * / B,X,*, + ,C, +,Y, = ,! 
Argument Stack: Y,18 
Operator Stack: SOE, = 

SAVEOP: + 

This step originates at PS5. The SAVEOP operator, +, has 
a precedence that is less than the operator which was at the top 
of the stack, *. Therefore, according to PS7, the * is popped 
and executed. 

The execution of * results in A*9 = 2*9 = 18. The resulting 
value is pushed onto the Argument Stack. 
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Example step 11. 

Actual Expression: Y = A*X A 2 + B*X + C! 

Rearranged Expression: X,2,A,A,*, B,X, *, + ,C, +, Y, =,! 
Argument Stack: Y,18 
Operator Stack: SOE, =, + 

SAVEOP: 

When step 10 finished, we went to PS5. The operator in 
SAVEOP was +. Since + has a higher precedence than the top- 
of-stack operator, =, the + operator was pushed onto the 
Operator Stack via PS6. 

Example step 12. 

Actual Expression: Y = A*X A 2 + B*X + C! 

Rearranged Expression: X,2,A ,A,*,B,X,*, + ,C, + ,Y, = ,! 
Argument Stack: Y,18,B 
Operator Stack: SOE, =, + 

SAVEOP: 

The next symbol is the variable B, which is pushed onto the 
Argument Stack via PS3. 

Example step 13. 

Actual Expression: Y = A*X A 2 + B*X + C! 

Rearranged Expression: X,2,A,A,*, B,X,*, + ,C, +,Y, =,! 
Argument Stack: Y,18,B 
Operator Stack: SOE, =, +, * 

SAVEOP: * 

The next symbol is the operator *. Since * has a higher 
precedence than the top-of-stack +, * is pushed onto the stack 
via PS6. 

Example step 14. 

Actual Expression: Y = A *X A 2 + B *X + C! 

Rearranged Expression: X,2,A ,A,*,B ,X,*, +, C, +, Y, =,! 
Argument Stack: Y,18,B,X 
Operator Stack: SOE, =, +, * 

SAVEOP: 

The variable X is pushed onto the Argument Stack via PS3. 

Example step 15. 

Actual Expression: Y = A*X A 2 + B*X + C! 

Rearranged Expression: X, 2, A, A, *, B,X, *, +, C, +, Y, =,! 
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Argument Stack: Y,18,12 
Operator Stack: SOE, =, + 

SAVEOP: + 

The operator + is retrieved from the expression. Since + 
has a lower precedence than * which is at the top of the stack, 

* is popped and executed. 

The execution of * causes B*X = 4*3 = 12. The resulting 
value of 12 is pushed onto the Argument Stack. We will 
continue at PS5 via the PS7 exit rule. 

Example step 16. 

Actual Expression: Y = A*XA 2 + B*X + C! 

Rearranged Expression: X,2,A,A,*,B,X,*, + , C, + ,Y, =,! 
Argument Stack: Y,30 
Operator Stack: SOE, = 

SAVEOP: + 

This step starts at PS5. The SAVEOP operator, +, has 
precedence that is equal to the precedence of the top-of-stack 
operator, also +. Therefore, + is popped from the operator 
stack and executed. The results of the execution cause 18 + 12, 
or 30, to be pushed onto the Argument Stack. PS5 is called. 
Example step 17. 

Actual Expression: Y = A*XA 2 + B*X±C\ 

Rearranged Expression: X,2,A ,A,*,B,X,*, + r C, +,Y, =,! 
Argument Stack: Y,30 
Operator Stack: SOE, =, + 

SAVEOP: 

This step starts at PS5. The SAVEOP is +. The top-of-stack 
operator, =, has a lower precedence than +; therefore, + is 
pushed onto the stack via PS6. 

Example step 18. 

Actual Expression: Y = A*Xa 2 + B*X + C! 

Rearranged Expression: X,2,A r A,*,B r X,*, + , C, +, Y, =,! 
Argument Stack: Y,30,C 
Operator Stack: SOE, =, + 

SAVEOP: 

The variable C is pushed onto the Argument Stack via PS3. 
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Example step 19. 

Actual Expression: Y = A*X A 2 + B*X + C| 

Rearranged Expression: X,2,*,A.,*,Yi,X,*, + ,C, + , Y, =,! 
Argument Stack: Y,36 
Operator Stack: SOE, = 

SAVEOP: ! 

The EOE operator ! is plucked from the expression. The 
EOE has a lower precedence than the top-of-stack + operator. 
Therefore, + is popped and executed. The resulting value of 
30 + 6, 36, is pushed onto the Argument Stack. PS5 will execute 
next. 

Example step 20. 

Actual Expression: Y = A*X A 2 + B*X + Q 
Rearranged Expression: X,2, A, A, *,B,X, *, + ,C, +,Y, =, ! 
Argument Stack: 

Operator Stack: SOE 
SAVEOP: ! 

This step starts at PS5. The ! operator has a lower 
precedence than the top-of-stack = operator, which is popped 
and executed. The execution of = causes the value 36 to be 
assigned to Y. This leaves the Argument Stack empty. PS5 will 
be executed next. 

Example step 21. 

Actual Expression: Y = A*X A 2 + B*X + Cf 
Rearranged Expression: X,2,A,A,*,B,X,*, + ,C, + ,Y,=,! 
Argument Stack: 

Operator Stack: 

SAVEOP: ! 

The ! operator in SAVEOP causes the SOE operator to be 
popped and executed. The execution of SOE terminates the 
expression evaluation. 

Note that the rearranged expression was executed exactly 
as predicted. 

Mainline Code 

The Execute Expression code implements the Expression 
Rearrangement Procedure. The mainline code starts at the 
EXEXPR label at $AAE0. The input to EXEXPR starts at the 
current token in the current statement. STMCUR points to the 
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current statement. STINDEX contains the displacement to the 
current token in the STMCUR statement. The output of 
EXEXPR is whatever values remain on the top of the argument 
stack when the expression evaluation is finished. 

In the following discussion, PS n refers to the procedure 
step n in the Expression Rearrangement Procedure. 

PS1, initialization, occurs when EXEXPR is entered. 
EXPINT is called to initialize the operator and argument stacks. 
EXPINT places the SOE operator on the operator stack. 

PS2, which obtains the next token, directly follows 
initialization at EXNXT ($AAE3). The code calls EGTOKEN to 
get the next expression symbol and classify it. If the token is an 
argument, the carry will be set. If the token is an operator, the 
carry will be clear. 

If the token is an argument, PS3 is implemented via a call to 
ARGPUSH. After the argument is pushed onto the argument 
stack, EXNXT (PS2) will receive control. 

If the token was an operator, then the code at EXOT 
($AAEE) will be executed. This code implements PS4 by saving 
the token in EXSVOP. 

PS5, which compares the precedents of the EXSVOP token 
and the top-of-stack token, follows EXOT at EXPTST ($AAFA). 
This code also executes the SOE operator. If SOE is popped, 
then Execute Expression finishes via RTS. 

If the top-of-stack operator precedence is less than the 
EXSVOP operator precedence, PS6 is implemented at 
EOPUSH ($AB15). EOPUSH pushes EXSVOP onto the 
operator stack and then goes to EXNXT (PS2). 

If the top-of-stack operator precedence is greater than or 
equal to the EXSVOP operator precedence, then PS7 is 
implemented at EXOPOP ($AB0B). EXOPOP will pop the top- 
of-stack operator and execute it by calling EXOP. When EXOP 
is done, control passes to EXPTST (PS5). 

Expression Evaluation Stacks 

The two expression evaluation stacks, the Argument Stack and 
the Operator Stack, share a single 256-byte memory area. The 
Argument Stack grows upward from the lower end of the 256- 
byte area. The Operator Stack grows downward from the 
upper end of the 256-byte area. 

The 256-byte stack area is the multipurpose buffer at the 
start of the RAM tables. The buffer is pointed to by the 
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ARGSTK (also ARGOPS) zero-page pointer at $80. The current 
index into the Argument Stack is maintained by ARSLVL 
($AA). When the Argument Stack is empty, ARSLVL is zero. 

The OPSTKX cell maintains the current index into the 
Operator Stack. When the Operator Stack is initialized with the 
SOE operator, OPSTKX is initialized to $FF. As operators are 
added to the Operator Stack, OPSTKX is decremented. As 
arguments are added to the Argument Stack, ARSLVL is 
incremented. 

Since the two stacks share a single 256-byte memory area, 
there is a possibility that the stacks will run into each other. The 
code at $ABC1 is used to detect a stack collision. It does this by 
comparing the values in ARSLVL and OPSTKX. If ARSLVL is 
greater than or equal to OPSTKX, then a stack collision occurs, 
sending the STACK OVERFLOW error to the user. 

Operator Stack 

Each entry on the Operator Stack is a single-byte operator-type 
token. Operators are pushed onto the stack at EXOPUSH 
($AB15) and are popped from the stack at EXOPOP ($AB0B). 

Argument Stack 

Each entry on the Argument Stack is eight bytes long. The 
format of these entries is described in Figures 7-2, 7-3, and 7-4, 
and are the same as the formats for entries in the Variable Value 
Table. 

Unlike the Variable Value Table, the Argument Stack must 
deal with both variables and constants. In Figure 7-2, we see 
that VNUM is used to distinguish variable entries from 
constant entries. 

The SADR and AADR fields in the entries for strings and 
arrays are of special interest. (See Figures 7-3 and 7-4.) When a 
string or array variable is dimensioned, space for the variable is 
created in the string/array space. The displacement to the start 
of the variable's area within the string/array space is placed in 
the SADR/AADR fields at that time. A displacement is used 
rather than an absolute address because the absolute address 
can change if any program changes are made after the DIM 
statement is executed. 

Execute Expression needs these values to be absolute 
address values within the 6502 address space. When a 
string/array variable is retrieved from the Variable Value Table, 
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the displacement is transformed to an absolute address. When 
(and if) the variable is put back into the Variable Value Table, 
the absolute address is converted back to a displacement. 

The entries for string constants also deserve some special 
attention. String constants are the quoted strings within the 
user program. These strings become part of the tokenized 
statements in the Statement Table. When Execute Expression 
gets a string token, it will create a string constant Argument 
Stack entry. This entry's SADR is an absolute address pointer 
to the string in the Statement Table. SLEN and SDIM are set to 
the actual length of the quoted string. 

Argument Work Area 

An argument which is currently being examined by Execute 
Expression is kept in a special zero-page Argument Work Area 
(AWA). The AWA starts at the label VTYPE at $D2. 


Figure 7-2. Argument Stack Entry 

0 1 2 


► Data Field. Format depends on VTYPE. 


- If VNUM = 0, the entry is a constant. 

If VNUM > 0, the entry is a variable. In this case, 

. the VNUM value is the entry number in the Variable 
Value Table. The token representing this variable is 
L VNUM+ $80. 


- $00 = Data is a six-byte floating point constant. 

$80 = Data represents an undimensioned string. 

$81 = Data represents a dimensioned string with 
a relative address pointer. 

- $83 = Data represents a dimensioned string with 
an absolute address pointer. 

$40 = Data represents an undimensioned array. 

$41 = Data represents a dimensioned array with 
a relative address pointer. 

L $43 = Data represents a dimensioned array with 
an absolute address pointer. 
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Figure 7-3. Argument Stack String Entry 

0_1_2_4_6_8 

1 VTYPE | VNUM | SADR [ SLEN | SDIM | 


| fc r Dimensioned length of the string. Valid only if 
VTYPE = $81 or $83. 

_i-Current length of the string. Valid only if VTYPE 
*i-=$81 or $83. 

- String address. Valid only if VTYPE = $81 or $83. 

If VTYPE = $81, then SADR is the displacement 
of the start of the string from the start of the 
-► string/array space. 

If VTYPE = $83, then SADR is the absolute address 
-of the start of the string. 


Figure 7-4. Argument Stack Array Entry 

0_1_2_4_6_8 

[ VTYPE | VNUM | AADR | DIM1 | DIM2 | 

i . = ? _t t 


-When an array has been dimensioned as A(D1,D2), 
this field contains the D2 value. If an array 
► was dimensioned as A(D1), then this field is 
zero. The field is valid only if VTYPE = $41 or 
L $43. 

r When an array has been dimensioned, as A(D1,D2) 
- or as A(D1), this field contains the D1 value. 

L The field is valid only if VTYPE = $41 or $43. 

- Array Address. Valid only if VTYPE = $41 or $43. 

If VTYPE = $41, the AADR is the displacement to 
' the start of the array in the string/array space. 

If VTYPE = $43, the AADR is the absolute address 

- of the start of the string. 
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Operator Executions 

An operator is executed when it is popped from the Operator 
Stack. Execute Expression calls EXOP at $AB20 to start this 
execution. The EXOP routine uses the operator token value as 
an index into the Operator Execution Table ($AA70). The 
operator execution address from this table, minus 1, is placed 
on the 6502 CPU stack. An RTS is then executed to begin 
executing the operator's code. 

The names of the operator execution routines all begin with 
the characters XP. 

All the Atari BASIC functions, such as PEEK, RND, and 
ABS, are executed as operators. 

Most routines for the execution of the operators are very 
simple and straightforward. For example, the * operator 
routine, XPMUL ($AC96), pops two arguments, multiplies 
them via the floating point package, pushes the result onto the 
argument stack, and returns. 

String, Array, DIM, and Function Operations 

Any array reference in an expression may be found in one of 
two forms: A(x) or A(x,y). The indices x and y may be any 
valid expression. The intent of the indices is to reference a 
specific array element. 

Before the specific element reference can take place, the x 
and/or y index expressions must be fully evaluated. To do this, 
the characters '(' and ')' are made operators. The 
precedence of these operators forces things to happen in the 
correct sequence. Figure 7-5 shows the relative precedence of 
these operators for an array. 

Figure 7-5. Array Operator Precedence 

operator go-on-stack come-off-stack 

symbol precedence precedence 

( $0F $02 

, (comma) $04 $03 

) $04 $0E 

As a result of these precedence values, ( has a high 
enough precedence to go onto the stack, no matter what other 
operator is on the top of the stack. 
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The comma’s go-on-stack precedence will force all operators 
except ( to be popped and executed. As a result, the x index 
sub-expression, in the expression A{x,y), will be fully evaluated 
and the final x index value will be pushed onto the Argument 
Stack. 

The comma will then be placed onto the Operator Stack. Its 
come-off-stack precedence is such that no other operator, 
except ) , will pop it off. 

The ) operator precedence will force any y index 
expression to be fully evaluated and the y index result value to 
be placed onto the Argument Stack. 

It will then force the comma operator to be popped and 
executed. This action results in a comma counter being 
incremented. 

The ) will then force the ( to be popped and executed. 
The execution of ( results in the proper array element being 
referenced. The ( operator will pop the indices from the 
Argument Stack. The number of indices (either zero or one) to 
be popped is governed by the comma counter, which was 
incremented by one for each comma that was popped and 
executed. 

Atari BASIC has numerous ( tokens, and each causes a 
different ( routine to be executed. These ( operators are array 
(CALPRN), string (CSLPRN), array D/M (CDLPRN), string DIM 
(CDSLPR), function (CFLPRN), and the expression grouping 
CLPRN operator. The Syntax Table pseudo-instruction CHNG 
is used to change the CLPRN token to the other ( tokens in 
accordance with the context of the grammar. 

The expression operations for each of these various ( 
operators in relation to commas and ( is exactly the same. 

When ( is executed, the comma count will show how many 
arguments the operator's code must pop from the argument 
stack. Each of these arguments will have been evaluated down 
to a single value in the form of a constant. 
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Execution Boundary 
Conditions 


BASIC Language statements can be divided into groups with 
related functions. The execution boundary statements, RUN, 
STOP, CONT and END, cause a BASIC program to start or 
stop executing. The routines which simulate these statements 
are XRUN, XSTOP, XCONT, and XEND. 

Program Termination Routines 

Any BASIC statement can be used as either a direct statement 
or a program statement, but some only make sense in one 
mode. The STOP statement has no real meaning when entered 
as a direct statement. When the statement simulation routine 
for STOP is asked to execute in direct mode, it does as little 
processing as possible and exits. Useful processing occurs only 
when STOP is a program statement. 

STOP ($B7A7). The XSTOP and XEND routines are similar and 
perform some of the same tasks. The tasks common to both are 
handled by the STOP routine. 

If this statement is not a direct statement, the STOP routine 
saves the line number of the current line in STOPLN. This line 
number is used later for printing the STOPed message. It is 
also used by the CONT simulation routine (XCONT) to 
determine where to restart program execution. (Since XEND 
also uses this routine, it is possible to CONTinue after an END 
statement in the middle of a program.) 

The STOP routine also resets the LIST and ENTER devices 
to the screen and the keyboard. 

XSTOP ($B793). XSTOP does the common STOP processing 
and then calls :LPRTOKEN($B535) to print the STOPed 
message. It then calls one of the error printing routines, 

:ERRM2 ($B974), to output the AT LINE nnn portion. The 
:ERRM2 routine will not print anything if this was a direct 
statement. When :ERRM2 is finished, it jumps back to the start 
of the editor. 
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XEND ($B78D). XEND calls the STOP routine to save the 
current line number. It then transfers to the start of the editor 
via the SNX1 entry point. This turns off the sound, closes any 
open IOCBs, and prints the READY message. XEND also 
leaves values on the 6502 CPU stack. These values are thrown 
away when the editor resets the stack. 

END OF PROGRAM. A user may have neglected to include an 
END statement in his program. In this case, when Execution 
Control comes to the end of the Statement Table it calls XEND, 
and the program is terminated exactly as if the last statement in 
the program were an END. 

Program Initiation Routines 

The statements that cause a user's program to begin execution 
are RUN and CONT. These statements are simulated by XRUN 
and XCONT. 

XCONT ($B7BE). The CONT statement has no meaning when 
encountered as a program statement, so its execution has no 
effect. 

When the user enters CONT as a direct statement, XCONT 
uses the line number that was saved in STOPLN to set 
Execution Control's line parameters (STMCUR, NXTSTD, 
and LLNGTH). This results in the current line being the line 
following the one whose line number is in STOPLN. This 
means that any statement following STOP or END on a line 
will not be executed; therefore, STOP and END should always 
be the last statement in the line. 

If we are at the end of the Statement Table, XCONT 
terminates as if an END statement had been encountered in the 
program. If there are more lines to process, XCONT returns to 
Execution Control, which resumes processing at the line whose 
address was just put into STMCUR. 

XRUN ($B74D). The RUN statement comes in two formats, 
RUN and RUN < filespec > . In the case of RUN < filespec >, 
XRUN executes XLOAD to load a saved program, which 
replaces the current one in memory. The process then proceeds 
like RUN. 

XRUN sets up Execution Control's line pointers to indicate 
the first line in the Statement Table. It clears some flags used to 
control various other BASIC statements; for example, it resets 
STOPLN to 0. It closes all IOCBs and executes XCLR to reset all 
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the variables to zero and get rid of any entries in the 
String/Array Table or the Runtime Stack. 

If there is no program, so the only thing in the Statement 
Table is the direct statement, then XRUN does some clean-up, 
prints READY, and returns to the start of the editor, which 
resets the 6502 CPU stack. 

If there is a program, XRUN returns to Execution Control, 
which starts processing the first statement in the table as the 
current statement. 

When RUN < filespec > is used as a program statement, it 
performs the useful function of chaining to a new program, but 
if RUN alone is used as a program statement, an infinite loop 
will probably result. 

Error Handling Routine 

There are other conditions besides the execution boundary 
statements that terminate a program's execution. The most 
familiar are errors. 

There are two kinds of errors that can occur during 
execution: Input/Output errors and BASIC language errors. 

Any BASIC routine that does I/O calls the IOTEST routine 
($BCB3) to check the outcome of the operation. If an error that 
needs to be reported to the user is indicated, IOTEST gets the 
error number that was returned by the Operating System and 
joins the Error Handling Routine, ERROR ($B940), which 
finishes processing the error. 

When a BASIC language error occurs, the error number is 
generated by the Error Handling Routine. This routine 
calculates the error by having an entry point for every BASIC 
language error. At each entry point, there is a 6502 instruction 
that increments the error number. By the time the main 
routine, ERROR, is reached, the error number has been 
generated. 

The Error Handling Routine calls STOP ($B7A7) to save the 
line number of the line causing the error in STOPLN. It tests 
TRAPLN to see if errors are being TRAPed. The TRAP option is 
on if TRAPLN contains a valid line number. In this case, the 
Error Handler does some clean-up and joins XGOTO, which 
transfers processing to the desired line. 

If the high-order byte of the line number is $80 (not a valid 
line number), then we are not TRAPing errors. In this case, the 
Error Handler prints the four-part error message, which 
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consists of ERROR, the error number, AT LINE, and finally the 
line number. If the line in error was a direct statement, the AT 
LINE part is not printed. The error handler resets ERRNUM to 
zero and is finished. 

The Error Handling Routine does not do an orderly return, 
but jumps back to the start of the editor at the SYNTAX entry 
point where the 6502 stack is reset, clearing it of the now- 
unwanted return addresses. 
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Program Flow 
Control Statements 


Execution Control always processes the statement in the 
Statement Table that follows the one it thinks it has just 
finished. This means that statements in a BASIC program are 
usually processed in sequential order. 

Several statements, however, can change that order: 
GOTO, IF, TRAP, FOR, NEXT, GOSUB, RETURN, POP, and 
ON. They trick Execution Control by changing the parameters 
that it maintains. 

Simple Flow Control Statements 

XGOTO ($B6A3) 

The simplest form of flow control transfer is the GOTO 
statement, simulated by the XGOTO routine. 

Following the GOTO token in the tokenized line is an 
expression representing the line number of the statement that 
the user wishes to execute next. The first thing the XGOTO 
routine does is ask Execute Expression to evaluate the 
expression and convert it to a positive integer. XGOTO then 
calls the GETSTMT routine to find this line number in the 
Statement Table and change Execution Control's line 
parameters to indicate this line. 

If the line number does not exist, XGOTO restores the line 
parameters to indicate the line containing the original GOTO, 
and transfers to the Error Handling Routine via the ERNOLN 
entry point. The Error Handling Routine processes the error 
and jumps to the start of the editor. 

If the line number was found, XGOTO jumps to the 
beginning of Execution Control (EXECNL) rather than 
returning to the point in the routine from which it was called. 
This leaves garbage on the 6502 CPU stack, so XGOTO first 
pulls the return address off the stack. 
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XIF ($B778) 

The IF statement changes the statement flow based on a 
condition. The simulation routine, XIF, begins by calling a 
subroutine of Execute Expression to evaluate the condition. 
Since this is a logical (rather than an arithmetic) operation, we 
are only interested in whether the value is zero or non-zero. If 
the expression was false (non-zero), XIF modifies Execution 
Control's line parameters to indicate the end of this line and 
then returns. Execution Control moves to the next line, 
skipping any remaining statements on the original IF statement 
line. 

If the expression is true (zero), things get a little more 
complicated. Back during syntaxing, when a statement of the 
form IF < expression > THEN < statement > was encountered, 
the pre-compiler generated an end-of-statement token after 
THEN. XIF now tests for this token. If we are at the end of the 
statement, XIF returns to Execution Control, which processes 
what it thinks is the next statement in the current line, but 
which is actually the THEN < statement > part of the IF 
statement. 

If XIF does not find the end-of-statement token, then the 
statement must have had the form IF < expression > THEN 
Cline number > . XIF jumps to XGOTO, which finishes 
processing by changing Execution Control's line parameters to 
indicate the new line. 

XTRAP ($B7E1) 

The TRAP statement does not actually change the program 
flow when it is executed. Instead, the XTRAP simulation 
routine calls a subroutine of Execute Expression to evaluate the 
line number and then saves the result in TRAPLN ($BC). 

The program flow is changed only if there is an error. The 
Error Handling Routine checks TRAPLN. If it contains a valid 
line number, the error routine does some initial set-up and 
joins the XGOTO routine to transfer to the new line. 

Runtime Stack Routines 

The rest of the Program Flow Control Statements use the 
Runtime Stack. They put items on the stack, inspect them, 
and/or remove them from the stack. 

Every item on the Runtime Stack contains a four-byte 
header. This header consists of a one-byte type indication, a 
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two-byte line number, and a one-byte displacement to the 
Statement Name Token. (See pages 18-19.) The type byte is the 
last byte placed on the stack for each entry. This means that the 
pointer to the top of the Runtime Stack (RUNSTK) points to the 
type byte of the most recent entry on the stack. A zero type 
byte indicates a GOSUB-type entry. Any non-zero type byte 
represents a FOR-type entry. 

A GOSUB entry consists solely of the four-byte header. A 
FOR entry contains twelve additional bytes: a six-byte limit 
value and a six-byte step value. 

Several routines are used by more than one of the 
statement simulation routines. 

PSHRSTK ($B683) This routine expands the Runtime Stack 
by calling EXPLOW and then storing the type byte, line 
number, and displacement of the Statement Name Token on 
the stack. 

POPRSTK ($B841) This routine makes sure there really is 
an entry on the Runtime Stack. POPRSTK saves the 
displacement to the statement name token in SVDISP, saves 
the line number in TSLNUM, and puts the type/variable 
number in the 6502 accumulator. It then removes the entry by 
calling the CONTLOW routine. 

.•GETTOK ($B737) This routine first sets up Execution 
Control's line parameters to point to the line whose number is 
in the entry just pulled from the Runtime Stack. If the line was 
found, : GETTOK updates the line parameters to indicate that 
the statement causing this entry is now the current statement. 
Finally, it loads the 6502 accumulator with the statement name 
token from the statement that created this entry and returns to 
its caller. 

If the line number does not exist, : GETTOK restores the 
current statement address and exits via the ERGFDEL entry 
point in the Error Handling Routine. 

Now let's look at the simulation routines for the statements 
that utilize the Runtime Stack. 

XFOR ($B64B) 

XFOR is the name of the simulation routine which executes a 
FOR statement. 

In the statement FOR 1 = 1 TO 10 STEP 2: 

I is the loop control variable 
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1 is its initial value 

10 is the limit value 

2 is the step value 

XFOR calls Execute Expression, which evaluates the initial 
value and puts it in the loop control variable's entry in the 
Variable Value Table. 

Then it calls a routine to remove any currently unwanted 
stack entries — for example, a previous FOR statement that 
used the same loop control variable as this one. 

XFOR calls a subroutine of Execute Expression to evaluate 
the limit and step values. If no step value was given, a value of 
1 is assigned. It expands the Runtime Stack using EXPLOW 
and puts the values on the stack. 

XFOR uses PSHRSTK to put the header entry on the stack. 
It uses the variable number of the loop control variable 
(machine-language ORed with $80) as the type byte. XFOR 
now returns to Execution Control, which processes the 
statement following the FOR statement. 

The FOR statement does not change program flow. It just 
sets up an entry on the Runtime Stack so that the NEXT 
statement can change the flow. 

XNEXT ($B6CF) 

The XNEXT routine decides whether to alter the program flow, 
depending on the top Runtime Stack entry. XNEXT calls the 
POPRSTK routine repeatedly to remove four-byte header 
entries from the top of the stack until an entry is found whose 
variable number (type) matches the NEXT statement's variable 
token. If the top-of-stack or GOSUB-type entry is encountered, 
XNEXT transfers control to an Error Handling Routine via the 
ERNOFOR entry point. 

To compute the new value of the loop variable, XNEXT 
calls a subroutine of Execute Expression to retrieve the loop 
control variable's current value from the Variable Value Table, 
then gets the step value from the Runtime Stack, and finally 
adds the step value to the variable value. XNEXT again calls an 
Execute Expression subroutine to update the variable's value in 
the Variable Value Table. 

XNEXT gets the limit value from the stack to determine if 
the variable's value is at or past the limit. If so, XNEXT returns 
to Execution Control without changing the program flow, and 
the next sequential statement is processed. 
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If the variable's value has not reached the limit, XNEXT 
returns the entry to the Runtime Stack and changes the 
program flow. POPRSTK already saved the line number of the 
FOR statement in TSLNUM and the displacement to the 
statement name token in SVDISP. XNEXT calls the :GETTOK 
routine to indicate the FOR statement as the current statement. 

If the token at the saved displacement is not a FOR 
statement name token, then the Error Handling Routine is 
given control at the ERGFDEL entry point. Otherwise, XNEXT 
returns to Execution Control, which starts processing with the 
statement following the FOR statement. 

XGOSUB ($B6A0) 

The GOSUB statement causes an entry to be made on the 
Runtime Stack and also changes program flow. 

The XGOSUB routine puts the GOSUB-type indicator 
(zero) into the 6502 accumulator and calls PSHRSTK to put a 
four-byte header entry on the Runtime Stack for later use by 
the simulation routine for RETURN. XGOSUB then processes 
exactly like XGOTO. 

XRTN ($B719) 

The RETURN statement causes an entry to be removed from 
the Runtime Stack. The XRTN routine uses the information in 
this entry to determine what statement should be processed 
next. 

The XRTN first calls POPRSTK to remove a GOSUB-type 
entry from the Runtime Stack. If there are no GOSUB entries 
on the stack, then the Error Handling Routine is called at 
ERBRTN. Otherwise, XRTN calls :GETTOK to indicate that the 
statement which created the Runtime Stack entry is now the 
current statement. 

If the statement name token at the saved displacement is 
not the correct type, then XRTN exits via the Error Handling 
Routine's ERGFDEL entry point. Otherwise, control is 
returned to the caller. When Execution Control was the caller, 
then GOSUB must have created the stack entry, and 
processing will start at the statement following the GOSUB. 

Several other statements put a GOSUB-type entry on the 
stack when they need to mark their place in the program. They 
do not affect program flow and will be discussed in later 
chapters. 
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XPOP ($B841) 

The XPOP routine uses POPRSTK to remove an entry from the 
Runtime Stack. A user might want to do this if he decided not 
to RETURN from a GOSUB. 

XON ($B7ED) 

The ON statement comes in two versions: ON-GOTO and ON- 
GOSUB. Only ON-GOSUB uses the Runtime Stack. 

The XON routine evaluates the variable and converts it to 
an integer (MOD 256). If the value is zero, XON returns to 
Execution Control without changing the program flow. 

If the value is non-zero and this is an ON-GOSUB 
statement, XON puts a GOSUB-type entry on the Runtime 
Stack for RETURN to use later. 

From this point, ON-GOSUB and ON-GOTO perform in 
exactly the same manner. XON uses the integer value 
calculated earlier to index into the tokenized statement line to 
the correct GOTO or GOSUB line number. If there is no line 
number corresponding to the index, XON returns to Execution 
Control without changing program flow. Otherwise, XON 
joins XGOTO to finish processing. 
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Tokenized Program 
Save and Load 

The tokenized program can be saved to and reloaded from a 
peripheral device, such as a disk or a cassette. The primary 
statement for saving the tokenized program is SAVE. The 
saved program is reloaded into RAM with the LOAD 
statement. The CSAVE and the CLOAD statements are special 
versions of SAVE and LOAD for use with a cassette. 

Saved File Format 

The tokenized program is completely contained within the 
Variable Name Table, the Variable Value Table, and the 
Statement Table. However, since these tables vary in size, we 
must also save some information about the size of the tables. 

The SAVE file format is shown in Figure 10-1. The first part 
consists of seven fields, each of them two bytes long, which tell 
where each table starts or ends. Part two contains the saved 
program's Variable Name Table (VNT), Variable Value Table 
(WT), and Statement Table (ST). 

The displacement value in all the part-one fields is actually 
the displacement plus 256. We must subtract 256 from each 
displacement value to obtain the true displacement. 

The VNT starts at relative byte zero in the file's second 
part. The second field in part one holds that value plus 256. 

The DWT field in part one contains the displacement, 
minus 256, of the VVT from the start of part two. 

The DST value, minus 256, gives the displacement of the 
Statement Table from the start of part two. 

The DEND value, minus 256, gives the end-of-file 
displacement from the start of part two. 
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Figure 10-1. SAVE File Format 



The displacement of the VNT from 
the beginning of part two, plus 256. 

The displacement of VVT from the 
beginning of part two, plus 256. 

The displacement of the ST from the 
beginning of part two, plus 256. 

The displacement of the end of the 
file from the beginning of part two. 

Variable Name Table 


Variable Value Table 


Statement Table 


XSAVE ($BB5D) 

The code that implements the SAVE statement starts at the 
XSAVE ($BB5D) label. Its first task is to open the specified 
output file, which it does by calling EL AD VC. 

The next operation is to move the first seven RAM table 
pointers from $80 to a temporary area at $500. While these 
pointers are being moved, the value contained in the first 
pointer is subtracted from the value in each of the seven 
pointers, including the first. 

Since the first pointer held the absolute address of the first 
RAM table, this results in a list of displacements from the first 
RAM table to each of the other tables. These seven two-byte 
displacements are then written from the temporary area to the 
file via 103. These are the first fourteen bytes of the SAVE file. 
(See Figure 10-1.) 

The first RAM table is the 256-byte buffer, which will not be 
SAVEd. This is why the seven two-byte fields at the beginning 
of the SAVEd file hold values exactly 256 more than the true 
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displacement of the tables they point to. (The LOAD procedure 
will resolve the 256-byte discrepancy.) 

The next operation is to write the three needed RAM 
tables. The total length of these tables is determined from the 
value in the seventh entry in the displacement list, minus 256. 
To write the three entries, we point to the start of the Variable 
Name Table and call 104, with the length of the three tables. 
This saves the second part of the file format. 

The file is then closed and XSAVE returns to Execution 
Control. 

XLOAD ($BAFB) 

The LOAD statement is implemented at the XLOAD label 
located at $BAFB. 

XLOAD first opens the specified load file for input by 
calling ELADVC. BASIC reads the first fourteen bytes from the 
file into a temporary area starting at $500. These fourteen bytes 
are the seven RAM table displacements created by SAVE. 

The first two bytes will always be zero, according to the 
SAVE file format. (See Figure 10-1.) BASIC tests these two 
bytes for zero values. If these bytes are not zero, BASIC 
assumes the file is not a valid SAVE file and exits via the 
ERRNSF, which generates error code 21 (Load File Error). 

If this is a valid SAVE file, the value in the pointer at $80 
(Low Memory Address) is added to each of the seven displace¬ 
ments in the temporary area. These values will be the memory 
addresses of the three RAM tables, if and when they are read 
into memory. 

The seventh pointer in the temporary area contains the 
address where the end of the Statement Table will be. If this 
address exceeds the current system high memory value, the 
routine exits via ERRPTL, which generates error code 19 (Load 
Program Too Big). 

If the program will fit, the seven addresses are moved from 
the temporary area to the RAM table pointers at $80. The 
second part of the file is then loaded into the area now pointed 
to by the Variable Name Table pointer $82. The file is closed, 
CLR is executed, and a test for RUN is made. 

If RUN called XLOAD, then a value of $FF was pushed 
onto the CPU stack. If RUN did not call XLOAD, then $00 was 
pushed onto the CPU stack. If RUN was the caller, then an RTS 
is done. 
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If XLOAD was entered as a result of a LOAD or CLOAD 
statement, then XLOAD exits directly to the Program Editor, 
not to Execution Control. 

CSAVE and CLOAD 

The CSAVE and CLOAD statements are special forms of SAVE 
and LOAD. These two statements assume that the 
SAVE/LOAD device is the cassette device. 

CSAVE is not quite the same as SAVE "C:". Using SAVE 
with the "C:" device name will cause the program to be saved 
using long cassette inter-record gaps. This is a time waster, and 
CSAVE uses short inter-record gaps. 

CSAVE starts at XCSAVE ($BBAC). CLOAD starts at 
XCLOAD ($BBA4). 


84 



Chapter Eleven 


The LIST and ENTER 
Statements 


LIST can be used to store a program on an external device and 
ENTER can retrieve it. The difference between LOAD-SAVE 
and LIST-ENTER is that LOAD-SAVE deals with the tokenized 
program, while LIST-ENTER deals with the program in its 
source (ATASCII) form. 


The ENTER Statement 

BASIC is in ENTER mode whenever a program is not 
RUNning. By default the Program Editor looks for lines to be 
ENTERed from the keyboard, but the editor handles all 
ENTERed lines alike, whether they come from the keyboard or 
not. 

The Enter Device 

To accomplish transparency of all input data (not just ENTERed 
lines), BASIC maintains an enter device indicator, ENTDTD 
($B4). When a BASIC routine (for example, the INPUT 
simulation routine) needs data, an I/O operation is done to the 
IOCB specified in ENTDTD. When the value in ENTDTD is 
zero, indicating IOCB 0, input will come from the keyboard. 
When data is to come from some other device, ENTDTD 
contains a number indicating the corresponding IOCB. During 
coldstart initialization, the enter device is set to IOCB 0. It is 
also reset to 0 at various other times. 

XENTER ($BACB) 

The XENTER routine is called by Execution Control to simulate 
the ENTER statement. XENTER opens IOCB 7 for input using 
the specified < filespec >, stores a 7 in the enter device 
ENTDTD, and then jumps to the start of the editor. 

Entering from a Device 

When the Program Editor asks GLGO, the get line routine 
($BA92), for the next line, GLGO tells CIO to get a line from the 
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device specified in ENTDTD — in this case, from IOCB 7. The 
editor continues to process lines from IOCB 7 until an end-of- 
file error occurs. The IOTEST routine detects the EOF 
condition, sees that we are using IOCB 7 for ENTER, closes 
device 7, and jumps to SNX2 to reset the enter device 
(ENTDTD) to 0 and print the READY message before restarting 
at the beginning of the editor. 

The LIST Statement 

The routine which simulates the LIST statement, XLIST, is 
actually another example of a language translator, complete 
with symbols and symbol-combining rules. XLIST translates 
the tokens generated by Atari BASIC back into the semi- 
English BASIC statements in ATASCII. This translation is a 
much simpler task than the one done by the pre-compiler, 
since XLIST can assume that the statement to be translated is 
syntactically correct. All that is required is to translate the 
tokens and insert blanks in the appropriate places. 

The List Device 

BASIC maintains a list device indicator, LISTDTD ($B5), 
similar to the enter device indicator discussed earlier. 

When a BASIC routine wants to output some data (an error 
message, for example), the I/O operation is done to the device 
(IOCB) specified in LISTDTD. 

During coldstart initialization and at various other times, 
LISTDTD is set to zero, representing IOCB 0, the editor, which 
will place the output on the screen. Routines such as XPRINT 
or XLIST can change the LIST device to indicate some other 
IOCB. Thus the majority of the BASIC routines need not be 
concerned about the output's destination. 

Remember that IOCB 0 is always open to the editor, which 
gets input from the keyboard and outputs to the screen. IOCB 6 
is the S: device, the direct access to graphics screen, which is 
used in GRAPHICS statements. Atari BASIC uses IOCB 7 for 
I/O commands that allow different devices, like SAVE, LOAD, 
ENTER, and LIST. 

XLIST ($B483) 

The XLIST routine considers the output's destination in its 
initialization process and then forgets about it. It looks at the 
first expression in the tokenized line. If it is the < filespec > 
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string, XLIST calls a routine to open the specified device using 
IOCB 7 and to store a 7 in LISTDTD. All of XLIST's other 
processing is exactly the same, regardless of the LISTed data's 
final destination. 

XLIST marks its place in the Statement Table by calling a 
subroutine of XGOSUB to put a GOSUB type entry on the 
Runtime Stack. Then XLIST steps through the Statement Table 
in the same way that Execution Control does, using Execution 
Control's line parameters and subroutines. When XLIST is 
finished. Execution Control takes the entry off the Runtime 
Stack and continues. 

The XLIST routine, assuming it is to LIST all program 
statements, sets default starting and ending line numbers of 0 
(in TSLNUM) and $7FFF (in LELNUM). 

XLIST then determines whether line numbers were 
specified in the tokenized line that contained the LIST 
statement. XLIST compares the current index into the line 
(STINDEX) to the displacement to the next statement 
(NXTSTD). If STINDEX is not pointing to the next statement, 
at least one line number is specified. In this case, XLIST calls a 
subroutine of Execute Expression to evaluate the line number 
and convert it to a positive integer, which XLIST stores in 
TSLNUM as the starting line number. 

If a second line number is specified, XLIST calls Execute 
Expression again and stores the value in LELNUM as the final 
line to LIST. If there is no second line number, then XLIST 
makes the ending line number equal to the starting line 
number, and only one line will be LISTed. If no line numbers 
were present, then TSLNUM and LELNUM still contain their 
default values, and all the program lines will be LISTed. 

XLIST gets the first line to be LISTed by calling the 
Execution Control subroutine GETSTMT to initialize the line 
parameters to correspond to the line number in TSLNUM. If 
we are not at the end of the Statement Table, and if the current 
line's number is less than or equal to the final line number to be 
LISTed, XLIST calls a subroutine :LLINE to list the line. 

After LISTing the line, XLIST calls Execution Control's 
subroutines to point to the next line. LISTing continues in this 
manner until the end of the Statement Table is reached or until 
the final line specified has been printed. 

When XLIST is finished, it exits via XRTN at $B719, which 
makes the LIST statement the current statement again and then 
returns to Execution Control. 


87 



Chapter Eleven 


LIST Subroutines 

:LLINE($B55C) 

The :LLINE routine LISTs the current line (the line whose 
address is in STMCUR). 

:LLINE gets the line number from the beginning of the 
tokenized line. The floating point package is called to convert 
the integer to floating point and then to printable ATASCII. The 
result is stored in the buffer indicated by INBUFF. :LLINE calls 
a subroutine to print the line number and then a blank. 

For every statement in the line, :LLINE sets STINDEX to 
point to the statement name token and calls the :LSTMT 
routine ($B590) to LIST the statement. When all statements 
have been LISTed, :LLINE returns to its caller, XLIST. 

:LSTMT ($B590) 

The :LSTMT routine LISTs the statement which starts at the 
current displacement (in STINDEX) into the current line. This 
routine does the actual language translation from tokens to 
BASIC statements. 

:LSTMT uses two subroutines, :LGCT and :LGNT, to get 
the current and next token, respectively. If the end of the 
statement has been reached, these routines both pull the return 
address of their caller off the 6502 CPU stack and return to 
:LSTMT's caller, :LLINE. Otherwise, they return the requested 
token from the tokenized statement line. 

The first token in a statement is the statement name token. 
:LSTMT calls a routine which prints the corresponding 
statement name by calling :LSCAN to find the entry and 
:LPRTOKEN to print it. 

In the discussion of the Program Editor we saw that an 
erroneous statement was given a statement name of ERROR 
and saved in the Statement Table. If the current statement is 
this ERROR statement or is REM or DATA, :LSTMT picks up 
each remaining character in the statement and calls PRCHAR 
($BA9F) to print the character. 

Each type of token is handled differently. :LSTMT 
determines the type (variable, numeric constant, string 
constant, or operator) and goes to the proper code to translate 
it. 

Variable Token. A variable token has a value greater than or 
equal to $80. When :LSTMT encounters a variable token, it 
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turns off the most significant bit to get an index into the 
Variable Name Table. :LSTMT asks the :LSCAN routine to get 
the address of this entry. :LSTMT then calls :LPRTOKEN 
($B535) to print the variable name. If the last character of the 
name is (, the next token is an array left parenthesis operator, 
and :LSTMT skips it. 

Numeric Constant Token. A numeric constant is indicated by 
a token of $0E. The next six bytes are a floating point number. 
:LSTMT moves the numeric constant from the tokenized line to 
FRO ($D4) and asks the floating point package to convert it to 
ATASCII. The result is in a buffer pointed to by INBUFF. 
:LSTMT moves the address of the ATASCII number to 
SRCADR and tells :LPRTOKEN to print it. 

String Constant Token. A string constant is indicated by a 
token of $0F. The next byte is the length of the string followed 
by the actual string data. Since the double quotes are not stored 
with a string constant, :LSTMT calls PRCHAR ($BA9F) to print 
the leading double quote. The string length tells :LSTMT how 
many following characters to print without translation. 

:LSTMT repeatedly gets a character and calls PRCHAR to print 
it until the whole string constant has been processed. It then 
asks PRCHAR to print the ending double quote. 

Operator Token. An operator token is any token greater than 
or equal to $10 and less than $80. By subtracting $10 from the 
token value, :LSTMT creates an index into the Operator Name 
Table. :LSTMT calls :LSCAN to find the address of this entry. If 
the operator is a function (token value greater than or equal to 
$3D), :LPROTOKEN is called to print it. If this operator is not a 
function but its name is alphabetic (such as AND), the name is 
printed with a preceding and following blank. Otherwise, 
:LPRTOKEN is called to print just the operator name. 

:LSCAN ($B50C) 

This routine scans a table until it finds the translation of a token 
into an ATASCII name. A token's value is based on its table 
entry number; therefore, the entry number can be derived by 
modifying the token. For example, a variable token is created 
by machine-language ORing the table entry number of the 
variable name with $80. The entry number can be produced by 
ANDing out the high-order bit of the token. It is this entry 
number, stored in SCANT, that the :LSCAN routine uses. 
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The tables scanned by :LSCAN have a definite structure. 
Each entry consists of a fixed length portion followed by a 
variable length ATASCII portion. The last character in the 
ATASCII portion has the high-order bit on. Using these facts, 
:LSCAN finds the entry corresponding to the entry number in 
SCANT and puts the address of the ATASCII portion in 
SCRADR. 

:LPRTOKEN ($B535) 

This routine's task is to print the string of ATASCII characters 
whose address is in SCRADR. rLPRTOKEN makes sure the 
most significant bit is off (except for a carriage return) and 
prints the characters one at a time until it has printed the last 
character in the string (the one with its most significant bit on). 


J 
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Atari Hardware 
Control Statements 


The Atari Hardware Control Statements allow easy access to 
some of the computer's graphics and audio capabilities. The 
statements in this group are COLOR, GRAPHICS, PLOT, 
POSITION, DRAWTO, SETCOLOR, LOCATE, and SOUND. 

XGR ($BA50) 

The GRAPHICS statement determines the current graphics 
mode. The XGR simulation routine executes the GRAPHICS 
statement. The XGR routine first closes IOCB 6. It then calls an 
Execute Expression subroutine to evaluate the graphics mode 
value and convert it to an integer. 

XGR sets up to open the screen by putting the address of a 
string "S:" into INBUFF. It creates an AUX1 and AUX2 byte 
from the graphics mode integer. XGR calls a BASIC I/O routine 
which sets up IOCB 6 and calls CIO to open the screen for the 
specified graphics mode. Like all BASIC routines that do I/O, 
XGR jumps to the IOTEST routine, which determines what to 
do next based on the outcome of the I/O. 

XCOLOR ($BA29) 

The COLOR statement is simulated by the XCOLOR routine. 
XCOLOR calls a subroutine of Execute Expression to evaluate 
the color value and convert it to an integer. XCOLOR saves this 
value (MOD 256) in BASIC memory location COLOR ($C8). 
This value is later retrieved by XPLOT and XDRAWTO. 

XSETCOLOR ($B9B7) 

The routine that simulates the SETCOLOR statement, 
XSETCOLOR, calls a subroutine of Execute Expression to 
evaluate the color register specified in the tokenized line. The 
Execute Expression routine produces a one-byte integer. If the 
value is not less than 5 (the number of color registers), 
XSETCOLOR exits via the Error Handling Routine at entry 
point ERVAL. Otherwise, it calls Execute Expression to get two 
more integers from the tokenized line. 
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To calculate the color value, XSETCOLOR multiplies the 
first integer (MOD 256) by 16 and adds the second (MOD 256). 
Since the operating system's five color registers are in 
consecutive locations starting at $2C4, XSETCOLOR uses the 
register value specified as an index to the proper register 
location and stores the color value there. 

XPOS ($BA16) 

The POSITION statement, which specifies the X and Y 
coordinates of the graphics cursor, is simulated by the XPOS 
routine. 

XPOS uses a subroutine of Execute Expression to evaluate 
the X coordinate of the graphics window cursor and convert it 
to an integer value. The two-byte result is stored in the 
operating system's X screen coordinate location (SCRX at $55). 
This is the column number or horizontal position of the cursor. 

XPOS then calls another Execute Expression subroutine to 
evaluate the Y coordinate and convert it to a one-byte integer. 
The result is stored in the Y screen coordinate location (SCRY at 
$54). This is the row number, or vertical position. 

XLOCATE ($BC95) 

XLOCATE, which simulates the LOCATE statement, first calls 
XPOS to set up the X and Y screen coordinates. Next it 
initializes IOCB 6 and joins a subroutine of XGET to do the 
actual I/O required to get the screen data into the variable 
specified. 

XPLOT ($BA76) 

XPLOT, which simulates the PLOT statement, first calls XPOS 
to set the X and Y coordinates of the graphics cursor. XPLOT 
gets the value that was saved in COLOR ($C8) and joins a PUT 
subroutine (PRCX at $BAA1) to do the I/O to IOCB 6 (the 
screen). 

XDRAWTO ($BA31) 

The XDRAWTO routine draws a line from the current X,Y 
screen coordinates to the X,Y coordinates specified in the 
statement. The routine calls XPOS to set the new X,Y 
coordinates. It places the value from BASIC's memory location 
COLOR into OS location SVCOLOR ($2FB). XDRAWTO does 
some initialization of IOCB 6 specifying the draw command 
($11). It then calls a BASIC I/O routine which finishes the 
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initialization of IOCB 6 and calls CIO to draw the line. Finally, 
XDRAWTO jumps to the IOTEST routine, which will 
determine what to do next based on the outcome of the I/O. 

XSOUND ($B9DD) 

The Atari computer hardware uses a set of memory locations to 
control sound capabilities. The SOUND statement gives the 
user access to some of these capabilities. The XSOUND 
routine, which simulates the SOUND statement, places fixed 
values in some of the sound locations and user specified values 
in others. 

The XSOUND routine uses Execute Expression to get four 
integer values from the tokenized statement line. If the first 
integer (voice) is greater than or equal to 4, the Error Handling 
Routine is invoked at ERVAL. 

The OS audio control bits are all turned off by storing a 0 
into $D208. Any bits left on from previous serial port usage are 
cleared by storing 3 in $D20F. 

The Atari has four sound registers (one for each voice) 
starting at $D200. The first byte of each two-byte register 
determines the pitch (frequency). In the second byte, the four 
most significant bits are the distortion, and the four least 
significant bits are the volume. 

The voice value mentioned earlier is multiplied by 2 and 
used as an index into the sound registers. The second value 
from the tokenized line is stored as the pitch in the first byte of 
one of the registers ($D200, $D202, $D204, or $D206), 
depending on the voice index. The third value from the 
tokenized line is multiplied by 16 and the fourth value is added 
to it to create the value to be stored as distortion/volume. The 
voice, times 2, is again used as an index to store this value in 
the second byte of a sound register ($D201, $D203, $D205, or 
$D207). The XSOUND routine then returns to Execution 
Control. 
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External Data 
I/O Statements 


The external data I/O statements allow data which is not part of 
the BASIC source program to flow into and out of BASIC. 
External data can come from the keyboard, a disk, or a cassette. 
BASIC can also create external information by sending data to 
external devices such as the screen, a printer, or a disk. 

The INPUT and GET statements are the primary 
statements used for obtaining information from external 
devices. The PRINT and PUT statements are the primary 
statements for sending data to external devices. 

XIO, LPRINT, OPEN, CLOSE, NOTE, POINT and 
STATUS are specialized I/O statements. LPRINT is used to 
print a single line to the "P:" device. The other statements 
assist in the I/O process. 

X1NPUT ($B316) 

The execution of the INPUT statement starts at XINPUT 
($B316). 

Getting the Input Line. The first action of XINPUT is to 
read a line of data from the indicated device. A line is any 
combination of up to 255 characters terminated by the EOL 
character ($9B). This line will be read into the buffer located at 
$580. 

If the INPUT statement contained was followed by 

# < expression >, the data will be read from the IOCB whose 
number was specified by < expression > . If there was no 

# < expression >, IOCB 0 will be used. IOCB 0 is the screen 
editor and keyboard device (E:). If IOCB 0 is indicated, the 
prompt character (?) will be displayed before the input line 
request is made; otherwise, no prompt is displayed. 

Line Processing. Once the line has been read into the 
buffer, processing of the data in that line starts at XINA 
($B335). The input line data is processed according to the 
tokens in the INPUT (or READ) statements. These tokens are 
numeric or string variables separated by commas. 
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Processing a Numeric Variable. If the new token is a 
numeric variable, the CVAFP routine is called to convert the 
next characters in the input line to a floating point number. If 
this conversion does not report an error, and if the next input 
line character is a comma or an EOL, the floating point value is 
processed. 

The processing of a valid numeric input value consists of 
calling RTNVAR to return the variable and its new value to the 
Variable Value Table. 

If there is an error, INPUT processing is aborted via the 
ERRINP routine. If there is no error, but the user has hit 
BREAK, the process is aborted via XSTOP. If there is no abort, 
XINX ($B389) is called to continue with INPUT'S next task. 
Processing a String Variable. If the next statement token is 
a string variable, it is processed at XISTR ($B35E). This routine 
is also used by the READ statement. If the calling statement is 
INPUT, then all input line characters from the current character 
up to but not including the EOL character are considered to be 
part of the input string data. If the routine was called by READ, 
all characters up to but not including the next comma or EOL 
are considered to be part of the input string. 

The process of assigning the data to the string variable is 
handled by calling RISASN ($B386). If RISASN does not abort 
the process because of an error like DIMENSION TOO 
SMALL, XINX is called to continue with INPUT'S next task. 
XINX. The XINX ($B389) routine is entered after each variable 
token in an INPUT or a READ statement is processed. 

If the next token in the statement is an EOL, the 
INPUT/READ statement processing terminates at XIRTS 
($B3A1). XIRTS restores the line buffer pointer ($80) to the 
RAM table buffer. It then restores the enter device to IOCB 0 
(in case it had been changed to some other input device). 
Finally, XIRTS executes an RTS instruction. 

If the next INPUT/READ statement token is a comma, more 
input data is needed. If the next input line character is an EOL, 
another input line is obtained. If the statement was INPUT, the 
new line is obtained by entering XINO ($B326). If the statement 
was READ, the new line is obtained by entering XRD3 ($B2D0). 

The processing of the next INPUT/READ statement 
variable token continues at XINA. 
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XGET ($BC7F) 

The GET statement obtains one character from some specified 
device and assigns that character to a scalar (non-array) 
numeric variable. 

The execution of GET starts at XGET ($BC7F) with a call to 
GIODVC. GIODVC will set the I/O device to whatever number 
is specified in the # < expression > or to IOCB zero if no 
# < expression> was specified. (If the device is IOCB 0 (E:), the 
user must type RETURN to force E: to terminate the input.) 

The single character is obtained by calling 103. The 
character is assigned to the numeric variable by calling ISVAR1 
($BD2D). ISVAR1 also terminates the GET statement 
processing. 

PRINT 

The PRINT statement is used to transmit text data to an 
external device. The arguments in the PRINT statement are a 
list of numeric and/or string expressions separated by commas 
or semicolons. If the argument is numeric, the floating point 
value is converted to text form. If the argument is a string, the 
string value is transmitted as is. 

If an argument separator is a comma, the arguments are 
output in tabular fashion: each new argument starts at the next 
tab stop in the output line, with blanks separating the 
arguments. 

If the argument separator is a semicolon, the transmitted 
arguments are appended to each other without separation. 

The transmitted line is terminated with an EOL, unless a 
semicolon or comma directly precedes the statement's EOL or 
statement separator (:). 

XPRINT ($B3B6). The PRINT routine begins at XPRINT 
($B3B6). The tab value is maintained in the PTABW ($C9) cell. 
The cell is initialized with a value of ten during BASIC's cold 
start, so that commas in the PRINT line cause each argument to 
be displaced ten positions after the beginning of the last 
argument. The user may POKE PTABW to set a different tab 
value. 

XPRINT copies PTABW to SCANT ($AF). SCANT will be 
used to contain the next multiple-of-PTABW output line 
displacement — the column number of the next tab stop. 

COX is initialized to zero and is used to maintain the 
current output column or displacement. 
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XPRO. XPRINT examines the next statement token at XPRO 
($B3BE), classifies it, and executes the proper routine. 

# Token. If the next token is #, XPRIOD ($B437) is entered. 

This routine modifies the list device to the device specified in 
the #< expression >. XPRO is then entered to process the next 
token. 

, Token. The XPTAB ($B419) routine is called to process 
the , token. Its job is to tab to the next tab column. 

If COX (the current column) is greater than SCANT, we 
must skip to the next available tab position. This is done by 
continuously adding PTABW to SCANT until COX is less than 
or equal to SCANT. When COX is less than SCANT, blanks 
($20) are transmitted to the output device until COX is equal to 
SCANT. 

The next token is then examined at XPRO. 

EOL and : Tokens. The XPEOS ($B446) routine is entered 
for EOL and : tokens. If the previous token was a; or, token, 
PRINT exits at XPRTN ($B458). If the previous token was not a ; 
or, token, an EOL character is transmitted before exiting via 
XPRTN. 

; Token. No special action is taken for the ; token except to 
go to XPRO to examine the next token. 

Numbers and Strings. If the next token is not one of the 
above tokens. Execute Expression is called to evaluate the 
expression. The resultant value is popped from the argument 
stack and its type is tested for a number or a string. 

If the argument popped was numeric, it will be converted 
to text form by calling CVFASC. The resulting text is 
transmitted to the output device from the buffer pointed to by 
INBUFF ($F3). XPRO is then entered to process the next token. 

If the argument popped was a string, it will be transmitted 
to the output device by the code starting at :XPSTR ($B3F8). 
This code examines the argument parameters to determine the 
current length of the string. When the string has been 
transmitted, XPRO is entered to process the next token. 

XLPRINT ($B464) 

LPRINT, a special form of the PRINT statement, is used to print 
a line to the printer device (P:). 
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The XLPRINT routine starts at $B464 by opening IOCB 7 for 
output to the P: device. XPRINT is then called to do the 
printing. When the XPRINT is done, IOCB 7 is closed via 
CLSYS1 and LPRINT is terminated. 

XPUT ($BC72) 

The PUT statement sends a single byte from the expression in 
the PUT statement to a specified external device. 

Processing starts at XPUT ($BC72) with a call to GIODVC. 
GIODVC sets the I/O device to the IOCB specified in 
# < expression >. If a #< expression > does not exist, the 
device will be set to IOCB zero (E:). 

The routine then calls GETINT to execute PUT's expression 
and convert the resulting value to a two-byte integer. The least 
significant byte of this integer is then sent to the PUT device via 
PRCX. PRCX also terminates the PUT processing. 

XXIO ($BBE5) 

The XIO statement, a general purpose I/O statement, is 
intended to be used when no other BASIC I/O statement will 
serve the requirements. The XIO parameters are an IOCB I/O 
command, an IOCB specifying expression, an AUX1 value, an 
AUX2 value, and finally a string expression to be used as a 
filespec parameter. 

XIO starts at XXIO ($BBE5) with a call to GIOCMD. 
GIOCMD gets the IOCB command parameter. XIO then 
continues at XOP1 in the OPEN statement code. 

XOPEN ($BBEB) 

The OPEN statement is used to open an external device for 
input and/or output. OPEN has a # < expression>, the open 
type parameter (AUX1), an AUX2 parameter, and a string 
expression to be used as a filespec. 

OPEN starts at XOPEN at $BBEB. It loads the open 
command code into the A register and continues at XOP1. 

XOP1. XOP1 continues the OPEN and XIO statement 
processing. It starts at $BBED by storing the A register into the 
IOCMD cell. Next it obtains the AUX1 (open type) and AUX2 
values from the statement. 

The next parameter is the filespec string. In order to insure 
that the filespec has a proper terminator, SETSEOL is called to 
place a temporary EOL at the end of the string. 
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The XIO or OPEN command is then executed via a call to 
IOl. When IOl returns, the temporary EOL at the end of the 
string is replaced with its previous value by calling RSTSEOL. 

OPEN and XIO terminate by calling IOTEST to insure that 
the command was executed without error. 

XCLOSE ($BC1B) 

The CLOSE statement, which closes the specified device, starts 
at XCLOSE ($BC1B). It loads the IOCB close command code 
into the A register and continues at GDVCIO. 

GDVCIO. GDVCIO ($BC1D) is used for general purpose 
device I/O. It stores the A register into the IOCMD cell, calls 
GIODVC to get the device from # < expression >, then calls 107 
to execute the I/O. When 107 returns, IOTEST is called to test 
the results of the I/O and terminate the routine. 

XSTATUS ($BC28) 

The STATUS statement executes the IOCB status command. 
Processing starts at XSTATUS ($BC28) by calling GIODVC to 
get the device number from # < expression > . It then calls 108 
with the status command in the A register. When 108 returns, 
the status returned in the IOCB status cell is assigned to the 
variable specified in the STATUS statement by calling ISVAR1. 
ISVAR1 also terminates the STATUS statement processing. 

XNOTE ($BC36) 

The NOTE statement is used specifically for disk random 
access. NOTE executes the Disk Device Dependent Note 
Command, $26, which returns two values representing the 
current position within the file for which the IOCB is open. 

NOTE begins at XNOTE at $BC36. The code loads the 
command value, $26, into the A register and calls GDVCIO to 
do the I/O operation. When GDVCIO returns, the values are 
moved from AUX3 and AUX4 to the first variable in the NOTE 
statement. The next variable is assigned the value from AUX5. 

XPOINT ($BC4D) 

The POINT statement is used to position a disk file to a 
previously NOTEd location. Processing starts at XPOINT 
($BC4D). This routine converts the first POINT parameter to an 
integer and stores the value in AUX3 and AUX4. The second 
parameter is then converted to an integer and its value stored 
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in AUX5. The POINT command, $25, is executed by calling 
GDIOl, which is part of GDVCIO. 

Miscellaneous I/O Subroutines 

IOTEST. IOTEST ($BCB3) is a general purpose routine that 
examines the results of an I/O operation. If the I/O processing 
has returned an error, IOTEST processes that error. 

IOTEST starts by calling LDIOSTA to get the status byte 
from the IOCB that performed the last I/O operation. If the byte 
value is positive (less than 128), IOTEST returns to the caller. 

If the status byte is negative, the I/O operation was 
abnormal and processing continues at SICKIO. 

If the I/O aborted due to a BREAK key depression, BRKBYT 
($11) is set to zero to indicate BREAK. If a LOAD was in 
progress when BREAK was hit, exit is via COLDSTART; 
otherwise IOTEST returns to its caller. 

If the error was not from IOCB 7 (the device BASIC uses), 
the error status value is stored in ERRNUM and ERROR is 
called to print the error message and abort program execution. 

If the error was from IOCB 7, then IOCB 7 is closed and 
ERROR is called with the error status value in ERRNUM — 
unless ENTER was being executed, and the error was an end- 
of-file error. In this case, IOCB 7 is closed, the enter device is 
reset to IOCB 0, and SNX2 is called to return control to the 
Program Editor. 

I/O Call Routine. All I/O is initiated from the routine starting 
at IOl ($BD0A). This routine has eight entry points, IOl 
through 108, each of which stores predetermined values in an 
IOCB. All IOn entry points assume that the X register contains 
the IOCB value, times 16. 

101 sets the buffer length to 255. 

102 sets the buffer length to zero. 

103 sets the buffer length to the value in the Y register plus 
a most-significant length byte of zero. 

104 sets the buffer length from the values in the Y,A 
register pair, with the A register being the most-significant 
value. 

105 sets the buffer address from the value in the INBUFF 
cell ($F3). 

106 sets the buffer address from the Y, A register pair. The 
A register contains the most significant byte. 
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107 sets the I/O command value from the value in the 
IOCMD cell. 

108 sets the I/O command from the value in the A register. 
All of this is followed by a call to the operating system CIO 

entry point. This call executes the I/O. When CIO returns, the 
general I/O routine returns to its caller. 
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Internal I/O 
Statements 


The READ, DATA, and RESTORE statements work together to 
allow the BASIC user to pass predetermined information to his 
or her program. This is, in a sense, internal I/O. 

XDATA ($A9E7) 

The information to be passed to the BASIC program is stored in 
one or more DATA statements. A DATA statement can occur 
any place in the program, but execution of a DATA statement 
has no effect. 

When Execution Control encounters a DATA statement, it 
expects to process this statement just like any other. Therefore 
an XDATA routine is called, but XDATA simply returns to 
Execution Control. 

XREAD ($B283) 

The XREAD routine must search the Statement Table to find 
DATA. It uses Execution Control's subroutines and line 
parameters to do this. When XREAD is done, it must restore 
the line parameters to point to the READ statement. In order to 
mark its place in the Statement Table, XREAD calls a 
subroutine of XGOSUB to put a GOSUB-type entry on the 
Runtime Stack. 

The BASIC program may need to READ some DATA, do 
some other processing, and then READ more DATA. 

Therefore, XREAD needs to keep track of just where it is in 
which DATA statement. There are two parameters that provide 
for this. DATALN ($B7) contains the line number at which to 
start the search for the next DATA statement. DATAD ($B6) 
contains the displacement of the next DATA element in the 
DATALN line. Both values are set to zero as part of RUN and 
CLR statement processing. 

XREAD calls Execution Control's subroutine GETSTMT to 
get the line whose number is stored in DATALN. If this is the 
first READ in the program and a RESTORE has not set a 
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different line number, DATALN contains zero, and GETSTMT 
will get the first line in the program. On subsequent READs, 
GETSTMT gets the last DATA statement that was processed by 
the previous READ. 

After getting its first line, XREAD calls the XRTN routine to 
restore Execution Control's line parameters. 

The current line number is stored in DATALN. XREAD 
steps through the line, statement by statement, looking for a 
DATA statement. If the line contains no DATA statement, then 
subsequent lines and statements are examined until a DATA 
statement is found. 

When a DATA statement has been found, XREAD inspects 
the elements of the DATA statement until it finds the element 
whose displacement is in DATAD. 

If no DATA is found, XREAD exits via the ERROOD entry 
point in the Error Handling Routine. Otherwise, a flag is set to 
indicate that a READ is being done, and XREAD joins XINPUT 
at :XINA. XINPUT handles the assignment of the DATA values 
to the variables. (See Chapter 13.) 

XREST ($B26B) 

The RESTORE statement allows the BASIC user to re-READ a 
DATA statement or change the order in which the DATA 
statements are processed. The XREST routine simulates 
RESTORE. 

XREST sets DATALN to the line number given, or to zero if 
no line number is specified. It sets DATAD to zero, so that the 
next READ after a RESTORE will start at the first element in the 
DATA line specified in DATALN. 
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Miscellaneous 

Statements 


XDEG ($B261) and XRAD ($B266) 

The transcendental functions such as SIN or COS will work 
with either degrees or radians, depending on the setting of 
RADFLG ($FB). The DEG and RAD statements cause RADFLG 
to be set. These statements are simulated by the XDEG and 
XRAD routines, respectively. 

The XDEG routine stores a six in RADFLG. XRAD sets it to 
zero. These particular values were chosen because they aid the 
transcendental functions in their calculations. 

RADFLG is set to zero during BASIC's initialization 
process and also during simulation of the RUN statement. 

XPOKE ($B24C) 

The POKE statement is simulated by the XPOKE routine. 
XPOKE calls a subroutine of Execute Expression to get the 
address and data integers from the tokenized line. XPOKE then 
stores the data at the specified address. 

XBYE ($A9E8) 

The XBYE routine simulates the BYE statement. XBYE closes all 
IOCBs (devices and files) and then jumps to location $E471 in 
the Operating System. This ends BASIC and causes the memo 
pad to be displayed. 

XDOS ($A9EE) 

The DOS statement is simulated by the XDOS routine. The 
XDOS routine closes all IOCBs and jumps to whatever address 
is stored in location $0A. This will be the address of DOS if 
DOS has been loaded. If DOS has not been loaded, $0A will 
point to the memo pad. 

XLET ($AAE0) 

The LET and implied LET statements assign values to 
variables. They both invoke the XLET routine, which consists 
of the Execute Expression routines. (See Chapter 7.) 
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XREM ($A9E7) 

The REM statement is for documentation purposes only and 
has no effect on the running program. The routine which 
simulates REM, XREM, simply executes an RTS instruction to 
return to Execution Control. 

XERR ($B91E) 

When a line containing a syntax error is entered, it is given a 
special statement name token to indicate the error. The entire 
line is flagged as erroneous no matter how many previously 
good statements are in the line. The line is then stored in the 
Statement Table. 

The error statement is processed just like any other. 
Execution Control calls a routine, XERR, which is one of the 
entry points to the Error Handling Routine. It causes error 17 
(EXECUTION OF GARBAGE). 

XDIM ($B1D9) 

The DIMension statement, simulated by the XDIM routine, 
reserves space in the String/Array Table for the DIMensioned 
variable. 

The XDIM routine calls Execute Expression to get the 
variable to be DIMensioned from the Variable Value Table. The 
variable entry is put into a work area. In the process. Execute 
Expression gets the first and second DIMension values and sets 
a default of zero if only one value is specified. 

XDIM checks to see if the variable has already been 
DIMensioned. If the variable was already DIMensioned, XDIM 
exits via the ERRDIM entry point in the Error Handling 
Routine. If not, a bit is set in the variable type byte in the work 
area entry to mark this variable as DIMensioned. 

Next, XDIM calculates the amount of space required. This 
calculation is handled differently for strings and arrays. 
DIMensioning an Array. XDIM first increments both 
dimension values by one and then multiplies them together to 
get the number of elements in the array. XDIM multiplies the 
result by 6 (the length of a floating point number) to get the 
number of bytes required. EXPAND is called to expand the 
String/Array Table by that amount. 

XDIM must finish building the variable entry in the work 
area. It stores the first and second dimension values in the 
entry. It also stores the array's displacement into the 
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String/Array Table. It then calls an Execute Expression 
subroutine to return the variable to the Variable Value Table. 
(See Chapter 3.) 

DIMensioning a String. Reserving space for a string in the 
String/Array Table is much simpler. XDIM merely calls the 
EXPAND routine to expand by the user-specified size. 

XDIM must also build the Variable Value Table entry in the 
work area. It sets the current length to 0 and the maximum 
length to the DIMensioned value. The displacement of the 
string into the String/Array Table is also stored in the variable. 
XDIM then calls a subroutine of Execute Expression to return 
the variable entry to the Variable Value Table. (See Chapter 3.) 
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Initialization 


When the Atari computer is powered up with the BASIC 
cartridge in place, the operating system does some processing 
and then jumps to a BASIC routine. Between the time that 
BASIC first gets control and the time it prints the READY 
message, initialization takes place. This initialization is called a 
cold start. No data or tables are preserved during a cold start. 

Initialization is repeated if things go terribly awry. For 
example, if there is an I/O error while executing a LCD AD 
statement, BASIC is totally confused. It gives up and begins all 
over again with the COLDSTART routine. 

Sometimes a less drastic partial initialization is necessary. 
This process is handled by the WARMSTART routine, in which 
some tables are preserved. 

Entering the NEW statement, simulated by the XNEW 
routine, has almost the same effect as a cold start. 

COLDSTART ($A000) 

Two flags, LOADFLG and WARMFLG, are used to determine 
if a cold or warm start is required. 

The load flag, LOADFLG ($CA), is zero except during the 
execution of a LOAD statement. The XLOAD routine sets the 
flag to non-zero when it starts processing and resets it to zero 
when it finishes. If an I/O error occurs during that interval, 
IOTEST notes that LOADFLG is non-zero and jumps to 
COLDSTART. 

The warm-start flag, WARMFLG ($08), is never set by 
BASIC. It is set by some other routine, such as the operating 
system or DOS. If WARMFLG is zero, a cold start is done. If it 
is non-zero, a warm start is done. During its power-up 
processing, before BASIC is given control, OS sets WARMFLG 
to zero to request a cold start. During System Reset processing, 
OS sets the flag to non-zero, indicating a warm start is desired. 

If DOS has loaded any data into BASIC's program area 
during its processing, it will request a cold start. 

The COLDSTART routine checks both WARMFLG and 
LOADFLG to determine whether to do a cold or warm start. If 
a cold start is required, COLDSTART initializes the 6502 CPU 
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stack and clears the decimal flag. The rest of its processing is 
exactly the same as if the NEW statement had been entered. 

XNEW ($A00C) 

The NEW statement is simulated by the XNEW routine. XNEW 
resets the load flag, LOADFLG, to zero. It initializes the zero- 
page pointers to BASIC's RAM tables. It reserves 256 bytes at 
the low memory address for the multipurpose buffer and 
stores its address in the zero-page pointer located at $80. 

Since none of the RAM tables are to retain any data, their zero- 
page pointers ($82 through $90) are all set to low memory plus 
256. 

The Variable Name Table is expanded by one byte, which is 
set to zero. This creates a dummy end-of-table entry. 

The Statement Table is expanded by three bytes. The line 
number of the direct statement ($8000) is stored there along 
with the length (three). This marks the end of the Statement 
Table. 

A default tab value of 10 is set for the PRINT statement. 

WARMSTART ($A04D) 

A warm start is the least drastic of the three types of 
initialization. Everything the WARMSTART routine does is also 
done by COLDSTART and XNEW. 

The stop line number (STOPLN), the error number 
(ERRNUM), and the DATA parameters (DATALN and DATAD) 
are all set to zero. The RADFLG flag is set to zero, indicating 
that transcendental functions are working in radians. The 
break byte (BRKBYT) is set off and $FF is stored in TRAPLN to 
indicate that errors are not being trapped. 

All IOCBs (devices and files) are closed. 

The enter and list devices (ENTDTD and LISTDTD) are set 
to zero to indicate the keyboard and the screen, respectively. 

Finally, the READY message is printed and control passes 
to the Program Editor. 
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Directly 

Accessing 


Atari BASIC 




Introduction to 
Part Two 


Congratulations! If you have read all of Part 1, you are through 
the hard stuff. In Part 2, we hope to teach you how to use at 
least some of the abundance of information presented in the 
Source Listing and in Part 1. In particular, we will show you 
how to examine the various RAM and ROM tables used by 
BASIC. 

The examples and suggestions will be written in Atari 
BASIC. But those of you who are true-blue assembly language 
fanatics should have little trouble translating the concepts to 
machine code, especially with the source listing to guide you. 

Would that we could present an example program or 
concept for each possible aspect of the BASIC interpreter, but 
space does not allow it — nor would it be appropriate. For 
example, although we will present here a program to list all 
keywords and token values used by BASIC, we will not explore 
the results (usually disastrous) of changing token values within 
a BASIC program. 

Part 2 begins with a pair of introductory chapters. If you are 
experienced at hexadecimal-to-decimal conversions and with 
the concepts of word and byte PEEKs and POKEs, you may 
wish to skip directly to Chapter 3. 
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Hexadecimal 

Numbers 


The word hexadecimal means, literally, "of six and ten." It 
implies, however, a number notation which uses 16 as its base 
instead of 10. Hexadecimal notation is used as a sort of 
shorthand for the eight-digit binary numbers that the 6502 
understands. If Atari BASIC understood hexadecimal numbers 
and we all had eight fingers on each hand, there would be no 
need for this chapter. Instead, to use this book you have to 
make many conversions back and forth between hexadecimal 
("hex") and decimal notation. Many BASIC users have never 
had to learn that process. 

Virtually all the references to addresses and other values in 
this book are given in hexadecimal notation (or simply "hex" 
to us insiders). For example, we learn that the Atari BASIC 
ROM cartridge has $A000 for its lowest address and that 
location $80 contains a pointer to BASIC's current LOMEM. 

But what does all that mean? 

First of all, if you are not familiar with 6502 assembly 
language, let me point out that there is a convention that a 
number preceded by a dollar sign ($80) is a hexadecimal 
number, even if it contains only decimal digits. Also, notice 
that in the Source Listing all numbers in the first three columns 
are hexadecimal, even though the dollar sign is not present. (To 
the right of those columns, though, only those numbers 
preceded by a dollar sign are in hex.) 

Now, suppose I wanted to look at the contents of location 
$A4AF (SNTAB in the listing). Realistically, the only way to 
look at a memory location from BASIC is via the PEEK function 
(and see the next chapter if you are not sure how to use PEEK 
in this situation). But BASIC's language syntax requires a 
decimal number with PEEK — for instance, PEEK (15). 

Obviously, we need some way to convert from hexadecimal 
to decimal. Aside from going out and buying one of the 
calculators made just for this purpose, the best way is probably 
to let your computer help you. And the computer can help you 


115 



even if you only understand BASIC. As an example, here's a 
BASIC program that will convert hex to decimal notation: 

10 DIM HEX$(23),NUM$(4) 

20 HEX$="@ABCDEFGHI#######JKLMNO" 

30 CVHEX=9000 

100 PRINT :PRINT "GIVE ME A HEX NUMBER 
110 INPUT NUM$ 

120 GOSUB CVHEX 

130 PRINT "HEX ";NUM$;" = DECIMAL ";NUM 
140 GOTO 100 

9000 REM THE CONVERT HEX TO DECIMAL ROUTINE 
9010 NUM=0 

9020 FOR 1=1 TO LEN(NUM$) 

9030 NUM=NUM*16+ASC(HEX?(ASC(NUM?(I))—47))-64 
9040 NEXT I:RETURN 


Now, while this program might be handy for a few 
purposes, it would be much neater if we could simply use its 
capabilities anytime we wanted to examine or change a location 
(or its contents) referred to by a hex address or data. And so 
shall it be used. 

If we remove lines 100 through 140, inclusive, then any 
BASIC program which incorporates the rest of the program 
may change a hex number into decimal by simply 

1. placing the ATASCII form of the hex number in the 
variable NUM$, 

2. calling the convert routine at line 9000 (via GOSUB 
CVHEX), and 

3. using the result, which is returned in the variable NUM. 
In the next chapter, we will immediately begin to make use 

of this routine. If you are not used to hex notation, you might 
do well to type in and play with this program before 
proceeding. 

Finally, before we leave this subject, let's examine a routine 
which will allow us to go the other way — that is, convert 
decimal to hex: 

40 DIM DEC?(16):DEC?="0123456789ABCDEF" 

50 CVDEC=9100 

100 PRINT :PRINT "GIVE ME A DECIMAL NUMBER 
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110 INPUT DEC:NUM=DEC 

120 GOSUB CVDEC:REM 'NUM' is destroyed by this 
130 PRINT DEC;" Decimal = ";NUM$;" Hex" 

140 GOTO 100 

9100 REM CONVERT DECIMAL TO HEX ROUTINE 
9110 DIV=4096 
9120 FOR 1=1 TO 4 

9130 N=INT(NUM/DIV):NUM$(I,I)=DEC$(N+l) 

9140 NUM=NUM-DIV*N:DIV=DIV/16 
9150 NEXT I 
9160 RETURN 

These lines are meant to be added to the previous program, 
though they can be used alone if you simply add this line: 

10 DIM NUM$(4) 

We will use portions of these programs in later chapters, 
but we may compress some of the code into fewer lines simply 
to save wear and tear on our fingers. If you study these 
routines, you'll recognize them in their transformed versions. 
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PEEKing and 
POKEing 

In contrast to languages which include direct machine 
addressing capability, like "C" and Forth, and in contrast to 
"school" languages like Pascal and Fortran, which specifically 
prevent such addressing, BASIC provides a sort of halfway 
measure in machine accessibility. 

POKE is a BASIC statement. Its syntax is 
POKE < address >, < data > . Naturally, both < address > and 
< data > may be constants, variables, or even full-blown 
expressions: 

POKE 82,0: REM change left screen margin to zero 
produces the same result as 

LEFTMARGIN = 82:POKE LEFTMARGIN, 0 

PEEK, on the other hand, is a BASIC function. It cannot 
stand alone as a statement. To use PEEK, we either PRINT the 
value (contents) of a PEEKed location, assign a PEEKed value 
to a variable, or test the value for some condition: 

POKE 82, PEEK(82) +1: REM move the left margin in a 
space 

PRINT PEEK(106): REM where is the top of system 
memory? 

IF PEEK(195) = 136 THEN PRINT "End of File" 

In the first example, the number POKEd into 82 will be 
whatever number was stored before, plus 1. As explained in 
Part 1, the PEEK function is executed before the POKE. 

An aside: Just where did I get those addresses I used in the 
PEEKs and POKEs? One way to find them is to peruse the 
listings of Atari's operating system, available in Atari's 
technical manuals set, and the listing of BASIC in this book. 
Another way would be to use a book (like COMPUTE! Books' 
Mapping the Atari) or a reference card designed specifically to 
tell you about such addresses. 

And one more thing to consider before moving on. If we 
counted all of the bit patterns possible in a single 8-bit byte (like 
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01010101,11110000, and 00000001, where each 1 or 0 represents 
a single on or off bit), we would discover that there are 256 
unique combinations, ranging in value from 0 to 255. Since 
each memory location can hold only one byte, it is not 
surprising to learn that the PEEK function will always return a 
number from 0 to 255 ($00 to $FF). Similarly, BASIC will only 
POKE a data value that is an integer from 0 to 255. In fact, 
BASIC will convert any data to be POKEd to an integer 
number, rounding off any fractional parts. 

So far so good. But suppose we want to examine a location 
which is actually a two-byte word, such as the line number 
where the last TRAPped error occurred, stored starting at 
location $BA hex or 186 decimal. PEEK only lets us look at one 
byte at a time. How do we look at two bytes? Simple: one byte 
at a time. 

In most cases, words in a 6502-based machine are stored in 
memory with the least significant byte stored first. This means 
that the second byte of each word is a count of the number of 
256's there are in its value, and the first byte is the leftovers. 

(Or we can more properly say that the first byte contains “the 
word's value modulo 256.“) Confused? Let's try restating that. 

In decimal arithmetic, we can count from 0 to 9 in a single 
digit. To go beyond 9, we have a convention that says the digit 
second from the right represents the number of 10's in the 
number, and so on. 

If we consider bytes to be a computer's digits, which in 
many ways they are, and if we remember that each byte may 
represent any number from 0 to 255 (or $00 to $FF), then it is 
logical to say that the next byte is a count of the number of 256's 
in the number. The only thing illogical is that the higher byte 
comes after the lower byte (like reading 37 as “7 tens and 3 
ones" instead of what we are used to). 

Some examples might help: 


a 6502 word 

as written 

think of 

decimal 

in memory 

in assembler 

it as 

value 

0100 

$0001 

0*256 +1 

1 

00 01 

$0100 

1*256 +0 

256 

02 04 

$0402 

4*256 +2 

1026 

FF FF 

$FFFF 

255*256 +255 

65535 


So let's examine that error line location: 


PRINT PEEK(186) + 256 * PEEK(187) 
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Do you see it? Since the second byte is a count of the number of 
256's in the value, we must multiply it by 256 to calculate its 
true value. 

Now, in the case of line numbers, it is well and good that 
we print out a decimal value, since that is how we are used to 
thinking of them. But suppose you wished to print out some of 
BASIC's tables? You might very well wish to see the hex 
representations. The program presented here allows you to 
specify a hex address. It then presents you with the contents of 
the byte and the word found at that address, in both decimal 
and hex form. 

10 DIM HEX?(23),NUM?(4) 

2 0 HEX$="@ABCDEFGHI# # # # # # #JKLMNO" 

30 CVHEX=9000 

40 DIM DEC?(16):DEC$="0123456789ABCDEF" 

50 CVDEC=9100 

100 PRINT :PRINT "WHAT ADDRESS TO VIEW "j 
110 INPUT NUM?:PRINT 

120 PRINT "Address ";NUM?;" contains:" 

130 GOSUB CVHEX:ADDR=NUM 

140 NUM=PEEK(ADDR):GOSUB CVDEC 

150 PRINT ,"byte ";PEEK(ADDR);" = ?";NUM?(3) 

160 WORD=PEEK(ADDR)+2 56*PEEK(ADDR+1) 

170 NUM=WORD:GOSUB CVDEC 

180 PRINT ,"word ";WORD;" = ?";NUM? 

190 GOTO 100 

9000 REM THE CONVERT HEX TO DECIMAL ROUTINE 
9010 NUM=0 

9020 FOR 1=1 TO LEN(NUM?) 

9030 NUM=NUM*16+ASC(HEX?(ASC(NUM?(I))-47))-64 
9040 NEXT I:RETURN 

9100 REM CONVERT DECIMAL TO HEX ROUTINE 
9110 DIV=4096 
9120 FOR 1=1 TO 4 

9130 N=INT(NUM/DIV):NUM?(1,1)=DEC?(N+l) 

9140 NUM=NUM—DIV*N:DIV=DIV/16 
9150 NEXT I 
9160 RETURN 

You may have noticed that lines 10 through 50 and lines 
9000 to the end are the same as those used in the example 
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programs in the last chapter. And did you see line 160, where 
we obtained the word value by multiplying by 256? 

As the last point of this chapter, we need to discuss how to 
change a word value. Obviously, in Atari BASIC we can't POKE 
both bytes of a word at once any more than we could retrieve 
both bytes at once (although BASIC A + can, by using the 
DPOKE statement and DPEEK function). So we must invent a 
mechanism to do a double POKE. 

Given that the variable ADDR contains the address at 
which we wish to POKE a word, and given that the variable 
WORD contains the value (in decimal) of the desired word, the 
following code fragment will perform the double POKE: 

POKE ADDR + l,INT(WORD/256) 

POKE ADDR, WORD-256*PEEK(ADDR +1) 

This is kind of sneaky code, but calculating the most 
significant byte and POKEing the value in byte location 
ADDR +1 first allows us to also use it as a kind of temporary 
variable in calculating the least significant byte. By PEEKing the 
location that already holds the high-order byte, we can subtract 
it from the original value. The remainder is WORD modulo 256 
— the low-order byte. 

And that's about it. Hopefully, if you were not familiar 
with PEEK and POKE before, you now at least will not 
approach their use with too much caution. Generally, PEEKs 
will never harm either your running program or the machine, 
but don't be surprised if a stray POKE or two sends your 
computer off into never-never land. After all, you may have 
just told BASIC to start putting your program into ROM, or 
worse. 

On the other hand, if you have removed your diskettes and 
turned off your cassette recorder, the worst that can happen 
from an erring POKE is that you'll have to turn the power off 
and back on again. So have at it. Happy PEEKing and 
POKEing. 
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Listing Variables 
in Use 


Chapter 3 of Part 1 described the layout of the Variable Name 
Table and the Variable Value Table. In particular, we read that 
the Variable Name Table was built in a very simple fashion: 
Each new variable name, as it is encountered upon program 
entry, is simply added to the end of the list of names. The most 
significant bit of the last character of the name is turned on, to 
signal the end of that name. The contents of VNTP point to the 
beginning of the list of names, and the content of VNTD is the 
address of the byte after the end of the list. 

Now, what does all that mean? What does it imply that we 
can do? Briefly, it implies that we can look at BASIC's memory 
and find out what variable names are in current use. Here's a 
program that will do exactly that: 

32700 QQ=128:PRINT QQ, 

32710 FOR Q=PEEK(130)+256*PEEK(131) TO PE 
EK(132)+256*PEEK(133)-1 
32720 IF PEEK(Q)<128 THEN PRINT CHR$(PEEK 
(Q));:NEXT Q:STOP 

32730 PRINT CHR$(PEEK(Q)-128):QQ=QQ+1:PRI 
NT QQ,:NEXT Q:STOP 

Actually, this is not so much a program as it is a program 
fragment. It is intended that you will type NEW, type in the 
above fragment, and then LIST the fragment to a disk file (LIST 
"D:LVAR'') or to a cassette (LIST "C:"). Then type NEW again 
and ENTER or LOAD the program whose variables you want 
to list. Finally, use ENTER to re-enter the fragment from disk 
(ENTER "D:LVAR") or cassette (ENTER "C:"). Then type 
GOTO 32700 to obtain your Variable Name Table listing. 

Of course, if you had OPENed a channel to the printer 
(OPEN #1,8,0,"P:"), you could change the PRINTs to direct 
the listing to the printer (PRINT #1; CHR$ (< expression >)). 
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How does the fragment work? The reason for the start and 
end limits for the FOR loop are simple: word location 130 ($82) 
contains the pointer to the beginning of the Variable Name 
Table and word location 132 ($84) contains the pointer to the 
end of that same table, plus 1. So we simply traipse through 
that table, printing characters as we encounter them — except 
that when we encounter a character with its most significant bit 
on (IF PEEK(Q) > 127), we turn off that bit before printing it and 
start the next name on a new line. 

Notice that we use the variable QQ to allow us to print out 
the token value for each variable name. We will use this 
information in some later chapters. 

Also note that the variable names QQ and Q will appear in 
your variable name listing. Sorry. We can write a program 
which would accomplish the same thing without using 
variables, but it would be two or three times as big and much 
harder to understand. Of course, if you consistently use certain 
variable names, such as I and / in FOR-NEXT loops, you could 
use those names here instead, thus not affecting the count of 
variables in use. 

Incidentally, the STOP at the end of the third line should be 
unnecessary, since the table is supposed to end with a 
character with its upper bit on. But I've learned not to take 
chances — things don't always go as they're supposed to. 
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Variable 

Values 


In this chapter, we will show how you can determine the value 
of any variable by inspecting the Variable Value Table. Actually, 
in many respects this is a waste of effort. After all, if I need to 
know the value of the variable TOTAL, I can just type PRINT 
TOTAL. 

But this book is supposed to be a guide, and there are a few 
uses for this information, particularly in assembly language 
subroutines, and it is instructive in that it gives us an inkling of 
what BASIC goes through to evaluate a variable reference. 

It will probably be better to present the program first, and 
then explain what it does. Before doing so, though, note that 
the program fragment expects you to give it a valid variable 
token (128 through 255). No checks are made on the validity of 
that number, since we are all intelligent humans here and since 
we want to save program space. Enough. The program: 

32500 PRINT SPRINT "WHAT VARIABLE NUMBER 
";:INPUT Q 

32505 Q=PEEK(134)+256*PEEK(135) + (Q-128)* 

8 

32510 PRINT SPRINT "VARIABLE NUMBER "?PE 
EK(Q+l), 

32515 ON INT(PEEK(Q)/64) GOTO 32600,3265 
0 

32520 PRINT "IS A NUMBER, "sPRINT ,"VALU 
E "; 

32525 QEXP=PEEK(Q+2)sIF QEXP>127 THEN PR 
INT sQEXP=QEXP-128 

32530 QNUM=0 s FOR QQ=Q+3 TO Q+7 
32535 QNUM=QNUM*100+PEEK(QQ)—6*INT(PEEK( 

QQ)/16)s NEXT QQ 

32540 QEXP=QEXP—68 sIF QEXP=0 THEN 32555 
32545 FOR QQ=QEXP TO SGN(QEXP) STEP -SGN 
(QEXP) 
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32550 QNUM=(QEXP>0)*QNUM*100+(QEXP<0)*QN 
UM/100:NEXT QQ 

32555 PRINT QNUM:PRINT :GOTO 32500 
32570 IF PEEK(Q)/2<>INT(PEEK(Q)/2) THEN 
32580 

32575 PRINT ,"AND IS NOT YET DIMENSIONED 
POP:GOTO 32500 

32580 PRINT ,"ADDRESS IS ";PEEK(Q+2)+256 
*PEEK(Q+3):RETURN 

32600 PRINT "IS AN ARRAY, ":GOSUB 32570 
32610 PRINT ,"DIM 1 IS ";PEEK(Q+4)+256*P 
EEK(Q+5) 

32615 PRINT ,"DIM 2 IS ";PEEK(Q+6)+256*P 
EEK(Q+7) 

32620 GOTO 32500 

32650 PRINT "IS A STRING, ":GOSUB 32570 
32660 PRINT ,"LENGTH IS ";PEEK(Q+4)+256* 
PEEK(Q+5) 

32665 PRINT ,"{3 SPACES}DIM IS ";PEEK(Q+ 
6)+256*PEEK(Q+7) 

32670 GOTO 32500 

Did you get lost in all of that? I got lost several times as I 
wrote it, but it seems to work well. Shall we discuss it? 

The first place where confusion may arise is when I ask you 
to give a variable token from 128 to 255, and then reveal that 
the entry in the Variable Value Table thinks variable numbers 
range from 0 to 127. Actually, there is no anomaly here. The 
variable token that you input is the token value of the variable 
in your program. The number in the table is its relative 
position. The numbers differ only in their uppermost bit. 

The program uses the number you specify to form an 
address of an entry somewhere within the Variable Value 
Table. It then displays the internal variable number and 
examines the flag byte of the variable entry. Recall that the 
uppermost bit ($80, or 128) of the flag byte is on, if this variable 
is a string. The next bit ($40, or 64) is on if the variable is an 
array. If neither is on, the variable is a normal floating point 
number (or scalar, as it is sometimes called, to distinguish it 
from a floating point array). All this is decided and acted upon 
in line 32515. 
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Before examining what happens if the number is a scalar, 
let's look at strings and arrays. Both start out (lines 32600 and 
32650) by identifying themselves and calling a subroutine 
which determines if the variable has been DIMensioned yet. If 
not, the subroutine tells us so, removes the GOSUB entry from 
the stack, and starts the whole shebang over again. If the 
variable is DIMensioned, though, we print its address before 
returning. Note that the address printed is the relative address 
within the String/Array Table. 

If the DIMension check subroutine returns, both string and 
array variables have their vitals printed out before the program 
asks you for another variable number. In the case of a string, 
we see the current length (as would be obtained by the LENgth 
function) and its dimension. For an array, we see both 
dimensions. Note that array dimensions here are always one 
greater than the user program specified, so that a zero 
dimension value means "this dimension is unused." 

Point of interest: this program will never print a zero for an 
array dimension. Why? Because Atari BASIC never places a 
zero in either dimension when the DIM statement is executed. 
In a way, this is a "feature" (a feature is a documented bug). It 
implies that we may code DIM XX(7) and yet use something 
like PRINT XX(N,0). In other words, a singly dimensioned 
array in Atari BASIC is exactly equivalent to a doubly 
dimensioned array with a 0 as the second subscript in the DIM 
statement. 

Back to the listing. Fairly straightforward up until now. But 
look what happens if the variable is a scalar, a single floating 
point number. 

First, we obtain the exponent byte; if its upper bit is on, the 
number is negative, so we print the minus sign before turning 
the bit off. 

Second, we must loop through the five bytes of the 
mantissa, accumulating a value. The really strange part here is 
line 32535, so let's examine it closely. As we get each byte, we 
must multiply what we have gotten so far by 100 (remember, 
floating point numbers are in BCD format, so each byte 
represents a power of 100). Then, what we really want to do is 
add in 10 times the higher digit in the byte, plus the lower 
digit. We could have gotten those numbers as follows: 

NEWBCDVALUE = OLDBCDVALUE*100 

HIGHER = INT(PEEK(QQ)/16) 
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LOWER = PEEK(QQ)-16*HIGHER 
BYTEVALUE = 10*HIGHER + LOWER 
NEWBCDVALUE = NEWBCDVALUE + BYTEVALUE 
OLDBCDVALUE = NEWBCDVALUE 
Hopefully, your algebra is up to understanding how line 
32535 is just a simplification of all that. If not, don't worry 
about it. It works. 

But we still haven't accounted for the exponent. Now, 
exponents in the Atari floating point format are powers of 100 
in "excess 64" notation, which simply means that you subtract 
64 from the exponent to get the real power of 100. But wait! The 
implied decimal point is all the way to the left of the number. 

So we must bias our "excess 64" by the five multiplies-by-100 
we did in deriving the BCD value. All that is done in line 32540. 

Finally, we simply count the exponent down to one or up 
to minus one, depending on what it started at. And line 32545 
is tricky, but not too much so. I will leave its inner workings as 
an exercise for you, the reader. 

And, hard though it may be to believe, we arrive at line 
32555 with the number in hand. Then we PRINT it. 

Did we really have to go through all that? Not really, but 
perhaps it gives you an idea of what BASIC's GETTOK routine 
($AB3E) does when it encounters a variable name. 

Finally, to test all this out, you should type it in, LIST it to 
disk or cassette, use NEW, and then enter or load your favorite 
program. Finally, re-ENTER this program fragment from disk 
or cassette and type GOTO 32500. Just for fun, you might try 
finding the variable values for the following program: 

10 A = 12.34567890 : B = 9876543210 
20 C = 0.0000556677 
30 GOTO 60 

40 D$ = "WILL NEVER BE EXECUTED" 

50 E(7) = 1 

60 DIM F$(30), G$(40) , H(9,17), J(7) 

70 G$="ONLY THIS STRING WILL HAVE LENGTH" 

Type this little guy in, ENTER the variable value printer, 
and RUN the whole thing. Answer the variable number 
prompt with numbers from 128 to 135 and see what you get. 

It's interesting! 
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Examining the 
Statement Table 

If you will recall. Chapter 3 in Part 1 discussed the various user 
tables that existed in Atari BASIC's RAM memory space. 
Specifically, it discussed the Variable Name Table, Variable 
Value Table, Statement Table, String/Array Table, and Runtime 
Stack. 

In the last two chapters, we investigated the Variable Name 
Table and the Variable Value Table, showing how Atari BASIC 
can examine itself. So what is more logical than to now use 
Atari BASIC to display the contents of the Statement Table? 

While we could write a program that would examine the 
tokenized program and produce source text, there is little 
incentive to do so. The task would be both very difficult and 
very redundant: BASIC's LIST command performs the same 
task very nicely, thank you. 

What we can do, though, is write a program which will 
show the actual hex tokens used in a logical and almost 
readable form. Again, let's look at the program before 
decoding what it does. 

10 DIM NUM$(4) 

40 DIM DEC$(16):DEC$="0123456789ABCDEF" 

50 CVDEC=9100 
100 GOTO 32000 

110 ERROR- THIS IS AN ERROR LINE 
120 DATA AND, THIS, IS, DATA, 1,2,3 
130 REM LINES 110 TO 130 ARE FOR DEMONST 
RATION PURPOSES ONLY 
9100 REM CONVERT DECIMAL TO HEX 
9110 DIV=4096 
9120 FOR 1=1 TO 4 

9130 N=INT(NUM/DIV):NUM$(I,I)=DEC$(N+l) 

9140 NUM=NUM-DIV*N:DIV=DIV/16 
9150 NEXT I 
9160 RETURN 
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32000 QQ=PEEK(136)+256*PEEK(137) 

32010 Q=PEEK(QQ)+256*PEEK(QQ+1):QS=QQ:QQ 
=QQ+3 

32015 IF Q>32767 THEN PRINT "—END—":ST 
OP 

32020 QL=PEEK(QQ-1)+QS:PRINT "LINE NUMBE 
R "; Q, "LINE LENGTH " ; PEEK(QQ-1) 

32030 QT=PEEK(QQ+1):PRINT "{2 SPACES}STM 
T LENGTH PEEK(QQ),"STMT CODE ";P 
EEK(QQ+1) 

32040 Q=PEEK(QQ)+QS:QQ=QQ+2 

32050 IF QQ<Q THEN 32080 

32060 IF Q<QL THEN PRINT sGOTO 32030 

32070 PRINT sGOTO 32010 

32080 IF QT>1 AND QT<55 THEN 32120 

32090 PRINT "{2 SPACES}UNTOKENIZED::"; 

32100 PRINT CHR$(PEEK(QQ));:QQ=QQ+1:IF Q 
Q<Q THEN 32100 
32110 PRINT sGOTO 32010 
32120 NUM=PEEK(QQ)sGOSUB CVDEC 
32125 IF PEEK(QQ)>127 THEN PRINT " V=";N 
UM$(3)sGOTO 32200 

32130 IF PEEK(QQ)>15 THEN PRINT " ";NUM$ 

(3);sGOTO 32200 

32140 IF PEEK(QQ)=14 THEN GOTO 32170 
32150 QQ=QQ+1:QN=PEEK(QQ):NUM=QNsGOSUB C 
VDEC 

32155 PRINT " S,";NUM$(3IF QN=0 T 
HEN 32200 

32160 FOR QQ=QQ+1 TO QQ+QN-1:PRINT CHR$( 
PEEK(QQ));:NEXT QQ:GOTO 32190 
32170 PRINT " N="? 

32180 FOR QQ=QQ+1 TO QQ+5:NUM=PEEK(QQ):G 
OSUB CVDECSPRINT NUM$(3);:NEXT QQ 
32190 QQ=QQ-1SPRINT 
32200 QQ=QQ+1:IF QQ<Q THEN 32120 
32210 PRINT :IF QQ<QL THEN 32030 
32220 PRINT sGOTO 32010 

Now, even if you don't want to type all that in, there are a 
few points to be made about it. First, note that lines 10 through 
50 and 9100 through 9160 are the decimal-to-hex converter from 
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Chapter 2. Then, let's start with line 32000 and do a functional 
description, with the line numbers denoting the portion we are 
examining. 

32000. Decimal 136 is hex $88, the location of STMTAB, the 
pointer to the user's program space. 

32010, 32020. In each line, the first two bytes are the line 
number; the next byte is the line length (actually, the offset to 
next line). Remember, line 32768 is actually the direct 
statement. 

32030, 32040. Within a line, each statement begins with a 
statement length (the offset to the next statement from 
the beginning of the line) and a statement token. 

32050-32070. Boundary conditions are checked for. 

32080-32110. REM becomes statement token 0, DATA is 
token 1 and the error token is 55 ($37). All three of them simply 
store the user's input unchanged. 

32120. Remember, any token with its upper bit on 
indicates a variable number token. They really don't need to be 
special cased in this program, but we do so for readability. 

32130. Operator tokens have values of 16 to 127 ($10 to 
$7F). 

32140-32160. For string constants (also called string literals), 
we simply print out the string length and its contents (the 
characters between the quote signs). 

32170-32180. For numeric constants, we simply print the 
hex values of all six bytes. 

32190-32200. Clean-up. We ensure that we return for all 
remaining tokens (if any) in each statement and for all 
remaining statements (if any) in each line. 

Observe the FOR-NEXT loop controls in line 32180. Why 
QQ +1 TO QQ+5 if we want six values printed out? Ah, but 
this is a trick. Note that the loop termination value (QQ + 5) 
involves the loop variable (QQ). The problem is, though, that 
the loop variable is changed by the prior implied assignment 
(QQ = QQ + 1) when the assignment takes place — which is, of 
course, before the determination of the value of "QQ + 5" takes 
place. 

In other words, by the time we are ready to evaluate 
QQ + 5, the variable QQ has already been changed from its 
original value to its new, loop controlling value (QQ +1). 

Quite possibly, the proper general solution to using a FOR 
loop's variable in its own termination (or STEP) values is to 
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assign it to a temporary variable, thusly: 

QTEMP = QQ:FOR QQ = QTEMP +1 TO QTEMP + 6 
Did you notice that line 32160 actually has the same 
problem? Notice that we solved it there by adding -1 to the 
termination value to compensate for the +1 in the initialization 
assignment. 

One last comment before leaving the subject of strange 
FOR-NEXT loops. In Atari BASIC (and, indeed, in virtually all 
microcomputer BASICs), the termination (TO) value and the 
STEP value are determined when the FOR statement is first 
executed and are NOT changeable. Example: 

10 X=7:Y=2 

20 FOR I = 1 TO X STEP Y 
30 X = X+l 
40 Y = Y+X 
50 NEXT I 

This FOR loop will execute exactly four times (I = 1, 3, 5, 
and 7). The fact that X and Y change within the loop has no 
effect on the actual loop execution. 
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Viewing the 
Runtime Stack 


The Runtime Stack is the last of the user RAM tables that we 
will discuss in Part 2. 

Perhaps you noticed that we left out a discussion of the 
String/Array Table in Part 2. The omission was on purpose: 
there seems little purpose in PEEKing the contents of this table 
when BASIC's PRINT statement does an admirable job of 
letting you see all variable values. However, if you are so 
inclined, you could use the general purpose memory PEEKer 
program of Chapter 2 to view any portion of any memory, 
including the String/Array Table. 

On the other hand, looking at the Runtime Stack is kind of 
fun and enlightening. And the program we will present here 
might even find use on occasion. If you are having trouble 
tracing a program's flow, through various GOSUBs and/or 
FOR loops, simply drop in the routine below and GOSUB to it 
at an appropriate place in your program. It will print out a LIFO 
(Last In, First Out) listing of all active GOSUB calls and FOR- 
NEXT loop beginnings. 

10 FOR J=1 TO 3 
20 GOSUB 30 
30 FOR K=1 TO 5 
40 GOSUB 50 

50 JUNK=7:FOR Q=1 TO 2:GOSUB 32400 
32400 QQ=PEEK(144)+256*PEEK(145) 

32410 IF QQ<=PEEK(142)+256*PEEK(143) THE 
N PRINT "—END OF STACK—":STOP 
32420 PRINT "AT LINE ";PEEK(QQ-3)+256*PE 
EK(QQ-2); 

32430 PRINT ", OFFSET ";PEEK(QQ-1); 

32440 IF PEEK(QQ-4)=0 THEN PRINT ", GOSU 
B":QQ=QQ-4:GOTO 32410 
32450 PRINT ", FOR (#"?PEEK(QQ-4QQ 
=QQ-16:GOTO 32410 
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The first thing you might notice about this little routine is 
that, in contrast to all the programs we have used so far, it 
examines its portion of user RAM backward. That is, it starts 
at the top (high address) of the Runtime Stack area and works 
downward toward the bottom. 

Again, nothing surprising. If you will recall the description 
of entries on this stack (pages 18-19 and 133-34), you will 
remember that every entry, whether a GOSUB or FOR, has a 
four-byte header. And, while FOR statements also have twelve 
bytes of termination and step value added, the four bytes are 
always at the top of each entry — they are the last items put on 
the stack. 

Thus, we start at the top of the stack and examine four 
bytes. If the type byte is zero, it is a GOSUB entry, and all we 
must do is display the line number and statement offset. If we 
remove the four-byte header by subtracting 4 from our stack 
pointer, we are ready to examine the next entry. 

In the case of a FOR entry, we similarly display the line 
number and statement offset. However, each FOR entry also 
has a variable token associated with it, so we also display that 
token's value. With the variable name lister of Chapter 2, you 
can find out which variable is controlling this FOR loop. 

Finally, note that after displaying a FOR loop entry, we remove 
sixteen bytes (the four-byte header and the two six-byte 
floating point values) in preparation for the next entry. 

Incidentally, lines 10 through 50 are present as examples 
only. Add lines 32400 to 32450 to your own programs and see 
where you've come from. 
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Fixed Tokens 


In the last chapter, we discussed the last of the tables in user 
RAM. Now we will see how and where BASIC stores its 
internal ROM-based tables. 

As we noted in Chapter 5 of Part 1 (and viewed via the 
listing program of Chapter 5 in this Part), there are four kinds 
of tokens in an Atari BASIC program: (1) statement name 
tokens, (2) operator tokens, (3) variable tokens, and (4) 
constant tokens (string and numeric constants). Also, we 
learned in Part 1 how the tokenizing process works, converting 
the user's ATASCII source code into tokens. What we didn't 
learn, though, was exactly what token replaces what BASIC 
keyword. 

In this chapter, we present a program which will list all of 
the fixed tokens (those in ROM). Actually, the program 
presents three listings, each consisting of a list of token values 
with their associated ATASCII strings. But wait a moment! 
Three listings? There are only two ROM-based tables — SNTAB 
and OPNTAB. 

Yes, but it seems that this program is also capable of listing 
the Variable Name Table. Why list it again, when we did it so 
well in Chapter 3? Because we wanted to show you how BASIC 
itself does it. In many ways, this program emulates the 
functions of the SEARCH routine at address $A462 in the 
source listing. And, yes, BASIC uses a single routine to search 
all three of these same tables. You might want to examine 
BASIC's SEARCH routine at the same time you peruse this 
listing. 


100 REM we make use of the general purpose 
110 REM token lister three times: 

200 PRINT :PRINT "A LIST OF VARIABLE TOKENS" 

210 ADDR=PEEK(130)+256*PEEK(131) 

220 SKIP=0:TOKEN=128:GOSUB 1000 

300 PRINT :PRINT "A LIST OF STATEMENT TOKENS" 

310 ADDR=42159:SKIP=2:TOKEN=0:GOSUB 1000 
400 PRINT :PRINT "A LIST OF OPERATOR TOKENS" 

410 ADDR=42979:SKIP=0:TOKEN=16:GOSUB 1000 
420 STOP 

1000 REM a general purpose token listing routine 
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1001 REM 

1002 REM On entry to this routine, the following 

1003 REM variables have meanings: 

1004 REM ADDR = address of beginning of table 

1005 REM SKIP = bytes per entry to skip 

1006 REM TOKEN = starting token number 

1007 REM 

1100 ADDR=ADDR+SKIP:IF PEEK(ADDR)=0 THEN RETURN 
1110 PRINT TOKEN,:TOKEN=TOKEN+l 
1120 IF PEEK(ADDR)>127 THEN 1140 

1130 PRINT CHR$(PEEK(ADDR));:ADDR=ADDR+1:GOTO 1120 
1140 PRINT CHR?(PEEK(ADDR)-l28):ADDR=ADDR+1:GOTO 1100 

The main routine is actually lines 1100 through 1140 (while 
lines 1000 through 1007 simply explain it all). It's actually fairly 
simple. Each table is assumed to consist of a fixed number of 
bytes followed by a variable number of ATASCII bytes, the last 
of which has its upper bit on. 

In line 1100, we skip over the fixed bytes (if any) and check 
for the end of the table. After that, we simply print the token 
value followed by the name. 

Worth examining, though, are lines 200 through 420, 
where we call the main subroutine. First, note that the Variable 
Name Table has no bytes to skip and is located via its zero-page 
pointer. Naturally, the first variable token value is 128. 

Each entry in the Statement Name Table (SNTAB, at 
location $A4AF) has two leading bytes (actually, the two-byte 
address, minus 1, of the syntax table entry for this statement). 
Statement name token values begin at zero, and 42159 is the 
decimal address of SNTAB. 

Finally, the smallest-numbered operator token is 16 
decimal (except for string and numeric constants, which are 
special cased). There are no leading bytes in the Operator 
Name Table, and it starts at location 42979 decimal (OPNTAB, 
at $A7E3). 
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What Takes 
Precedence? 


There was one other ROM-based table mentioned in Part 1 
which deserves some attention here. You may recall that when 
an expression is executed, the execution operators are given 
particular precedences, so that in BASIC, 2 + 3*4 equals 14, not 
20. Chapter 7 of Part 1 does a particularly thorough job of 
explaining the concepts of precedence. 

The program presented in this chapter prints out all of 
BASIC's operator tokens along with their token values and 
their dual precedence values. Actually, the program provides a 
visual readout of OPRTAB (Operator PRecedence TABle, at 
SAC3F). 

In each pair of precedence values listed, the first number is 
the go-onto-stack value and the second is the come-off-stack 
value. 

100 PRINT "A LIST OF OPERATOR TOKENS" 

110 PRINT " WITH THEIR PRECEDENCE TABLE VALUES" 

220 SKIP=0:TOKEN=128:GOSUB 1000 

1000 ADDR=42979:REM WHERE OP NAMES START 

1010 TOKEN=l6:REM LOWEST TOKEN VALUE 

1020 REM NOW THE MAIN CODE LOOP 

1100 IF PEEK(ADDR)=0 THEN STOP 

1110 PRINT TOKEN,:PREC=PEEK(44095+TOKEN-16) 

1120 PRINT INT(PREC/16PREC-16*INT(PREC/16), 
1130 PREC=PEEK(ADDR):ADDR=ADDR+1 

1140 IF PREC<128 THEN PRINT CHR$(PREC);:GOTO 1130 
1150 PRINT CHR$(PREC-128):TOKEN=TOKEN+l:GOTO 1100 


If you closely examined the program in the last chapter, 
you will note a striking similarity to this program, especially 
lines 1100 through 1150. Actually, the only thing we have really 
added is the precedence printout of line 1120. 

And note the form of the PEEK in line 1110. Then look at 
the line of code at address $AAF1 in the BASIC listing. Given 
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the limitations of dissimilar languages, the code is identical. 
This is more evidence that you really can use BASIC as a tool to 
diagnose itself. 
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Using What 
We Know 


Now that Atari BASIC stands revealed before you, what do 
you do with it? Many authors have, even without benefit of the 
listing in this book, either used or fooled BASIC in ways that 
we who designed it never dreamed of. 

For example, consider what happens if you change 
BASIC's STARP pointer ($8C) to be equal to its ENDSTAR 
value ($8E). Remember, BASIC's SAVE command saves 
everything from the contents of VNTP to the contents of 
STARP (as documented in Chapter 10 of Part 1). So changing 
what is in STARP is tantamount to telling BASIC to SAVE more 
(or less) than what it normally would. Presto! We can now save 
the entire array and string space to disk or tape, also. 

Is it useful? Here's one program that is, using the concepts 
we learned in the previous chapters. 

30000 PRINT :PRINT "WHAT VARIABLE NUMBER 
DO YOU":PRINT,"WISH TO FIND "; 

30010 INPUT QV 

30020 QA=PEEK(130)+256*PEEK(131):QN=128 
30030 IF QN=QV THEN 30060 
30040 IF PEEK(QA)<128 THEN QA=QA+l:GOTO 
30040 

30050 QN=QN+1:QA=QA+1 : GOTO 30030 
30060 IF PEEK(QA)<128 THEN PRINT CHR$(PE 
EK(QA));:QA=QA+1:GOTO 30060 
30070 PRINT CHR$(PEEK(QA)-128);" IS THE 
VARIABLE" 

30100 QA=PEEK(136)+256*PEEK(137) 

30110 QN=PEEK(QA)+2 5 6 * PEEK(QA+1):QL=PEEK 
(QA+2):QSV=QA:QA=QA+3 
30120 IF QN>32767 THEN PRINT "—END—":E 
ND 

30130 QS=PEEK(QA):QT=PEEK(QA+1):QA=QA+2: 

IF QT>1 AND QT<55 THEN 30150 
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30140 

30150 

30160 

30170 

30180 

30200 

30210 

30220 


QA=QSV+QL:GOTO 30110 
IF PEEK(QA)=QV THEN PRINT "LINE " 
QN:GOTO 30140 
IF PEEK(QA)>15 THEN 30200 
IF PEEK(QA)=14 THEN QA=QA+6:GOTO 
0200 

QA=QA+PEEK(QA+1)+1 

QA=QA+1:IF QA<QSV+QS THEN 30150 

IF QA<QSV+QL THEN 30130 

GOTO 30110 


What does it do? It finds all the places in your program that 
you used a particular variable. And how do you use it? Type it 
in, LIST it to disk or cassette, and clear the user memory via 
NEW. Now type, ENTER, or LOAD the program you wish to 
investigate (and then SAVE it, if you haven't already done so). 
Finally, ENTER this program fragment from the disk or cassette 
where you LISTed it and type GOTO 30000. 

Although the program asks you for a variable number 
(which you can get via the program of Chapter 3), it doesn't 
really matter if you don't know it. The program will print your 
chosen variable's name before giving all the references. If you 
chose wrong, try again. 

And how does it work? Somewhat like the program token 
lister of Chapter 5, except that here we are simply skipping 
everything but variable name references. First, though, we use 
a modified Variable Name Table lister (lines 30020 through 
30070) to tell you what name you chose. 

Then, we start at the beginning of the program (line 30100) 
and check each user line number (30110 and 30120). Within 
each line, we loop through, checking all statements (30130), 
skipping entirely all REMs, DATA lines, and lines with syntax 
errors (line 30140). If we find ourselves in an expression, we 
check for a matching variable token reference (line 30150) and 
print it if found, after which we skip the rest of the line. We also 
skip over numeric and string constants (lines 30170 and 30180). 
Finally, we check to see if we are at the end of the statement 
(30200) or the end of a line (30210 and 30220). 

This is a fairly large program fragment, and it will prove 
most useful in very large programs, where you can't 
remember, for example, how many places you are using the 
variable name LOOP. So you might want to try to leave room 
in memory for this aid; you may be very glad you did. 
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Atari BASIC 
Source Code 





Copyright © 1978,1979,1983 

Optimized Systems Software ^ 

Cupertino, CA 

Printed in the United States of America ^ 

This program may not be reproduced, stored in a retrieval system, or transmitted in ^ 

whole or in part, in any form, or by any means, be it electronic, mechanical, photo¬ 
copying, recording, or otherwise without the prior written permission of 

Optimized Systems Software, Inc. 

10379 Lansdale Avenue 
Cupertino, California 95014 (U.S.A.) 

Telephone: (408) 446-3099 
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Some Miscellaneous Equates 




FPORG EQU $D800 

BRKBYT EQU $11 

WARMFL EQU $08 

RNDLOC EQU $D20A 

CRTGI EQU $BFFC-3 

EPCHAR EQU $5D 

BYELOC EQU $E471 

DOSLOC EQU $0A 



CREGS EQU $2C4 

SVCOLOR EQU $2FB 

SREG1 EQU $D208 

SREG2 EQU $D200 

SREG3 EQU $D201 

SKCTL EQU $D20F 

GRFBAS EQU $270 

DSPFLG EQU $2FE 




; LOW MEMORY POINTER 
; ARGUMENT/OPERATOR STACK 

y SYNTAX OUTPUT BUFFER 
7 VARIABLE NAME TABLE POINTER 
7 VARIABLE NAME TABLE DUMMY END 
7 VARIABLE VALUE TABLE POINTER 
7 END VARIABLE VALUE TABLE 
7 STATEMENT TABLE [PROGRAM] ; 
POINTER 

7 CURRENT PGM PTR 
7 STRING/ARRAY TABLE POINTER 
7 END STRING/ARRAY SPACE 
7 RUN TIME STACK 
7 END RUN TIME STACK 
7 TOP OF USED MEMORY 
7 MODIFIED EOL FLAG 
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Miscellaneous Zero Page RAM 


USED FOR FREQUENTLY USED VALUES 
TO DECREASE ROM SIZE AND INCREASE 
EXECUTION SPEED. ALSO USED FOR VARIOUS 
INDIRECT ADDRESS POINTERS. 


0094 

0095 

0095 

0097 

0097 


009D 

009D 


00A0 

00A2 

00A4 

00A6 

00A7 

00A7 

00A8 

00A8 

00A9 

00A9 


00AA 

00AA 

00AB 

00AC 


00AD 

00AD 

00AF 

00AF 

00AF 


00B2 

00B2 


= 0001 
= 0002 


= 0002 
= 0002 

= 0002 

= 0001 
= 0002 
= 0002 
= 0002 
= 0001 

= 0001 


= 0001 


= 0001 
= 0001 

= 0002 

= 0001 


= 0001 
= 0001 


COX DS 1 

POKADR 

SRCADR DS 2 

INDEX2 

SVESA DS 2 





WWTPT DS 2 

LLNGTH DS 1 

TSLNUM DS 2 

MVLNG DS 2 

ECSIZE DS 2 

DIRFLG DS 1 

STMLBD 

NXTSTD DS 1 

STMSTRT 

STINDEX DS 1 

STKLVL 

OPSTKX DS 1 

ARSLVL 

ARSTKX DS 1 

SWNTP 

LELNUM DS 2 

STENUM 

SVONTC 

COMCNT DS 1 

SVWTE 

ADFLAG DS 1 

SVONTL 

SVDISP DS 1 


00B3 

00B3 

00B3 = 0001 
00B4 = 0001 
00B5 = 0001 
00B6 = 0001 
00B7 = 0002 
00B9 = 0001 
00BA = 0002 
00BC = 0002 
00BE = 0002 
00C0 = 0001 
00C1 = 0001 
00C2 = 0001 
00C3 = 0001 
00C4 = 0002 

00C8 = 0001 
00C9 = 0001 
00CA = 0001 


ONLOOP 

SVONTX 

ENTDTD DS 1 

LISTDTD DS 1 

DATAD DS 1 

DATALN DS 2 

ERRNUM DS 1 

STOPLN DS 2 

TRAPLN DS 2 

SAVCUR DS 2 

IOCMD DS 1 

IODVC DS 1 

PROMPT DS 1 

ERRSAV DS 1 

TEMPA DS 2 

ZTEMP2 DS 2 

PTABW DS 1 

LOADFLG DS 1 


CURRENT OUTPUT INDEX 
POKE ADDRESS 
SEARCH ADR 
ARRAY INDEX 2 
SAVE EXPAND START ADR 
MOVE FROM ADR 


CUR SYNTAX PGM COUNTER 

WORKING VAR TABLE PTR VALUE 

MAX SYNTAX CIX 

LINE LENGTH 

TEST LINE NO 

MOVE LENGTH 

DIRECT EXECUTE FLAG 
STMT LENGTH BYTE DISPL 
NEXT STMT DISPL 
STMT START CIX 

SYNTAX STACK LEVEL 
INPUT BUFFER INDEX 
OPERATOR STACK INDEX 

SEARCH SKIP FACTOR 
ARG STACK INDEX 
TSCOW LENGTH BYTE PTR 
SAVED OPERATOR 


SAVED OPERATOR PRECEDENCE 


TEMP FOR ARRAYS 
SEARCH TABLE ENTRY NUMBER 
LIST SCAN COUNTER 
SAVE ONT SRC CODE 
COMMA COUNT FOR EXEXOR 
SAVE VAR VALUE EXP SIZE 
ASSIGN/DIM FLAG 

DISPL INTO LINE OF FOR/GOSUB 
TOKEN 

LOOP CONTROL FOR OP 
SAVE ONT SRC INDEX 
SAVE INDEX INTO STMT 
ENTER DEVICE TB 
LIST DEVICE TBL 
DATA DISPL 
DATA LINNO 
ERROR # 

LINE # STOPPED AR [FOR CON] 
TRAP LINE # [FOR ERROR] 

SAVE CURRENT LINE ADDR 
I/O COMMAND 
I/O DEVICE 
PROMPT CHAR 
ERROR # FOR USER 

PRINT TAB WIDTH 
LOAD IN PROGRESS FLAG 
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Argument Work Area (AWA) 


Floating Point Work Area 


00CB = 00D2 
00D2 

00D2 = 0001 


00D3 = 0001 

= 0006 
= 0005 



00DA = 0006 


TVTYPE 

TVNUM 
VNUM DS 

FPREC EQU 

FMPREC EQU 

BININT 
FR0 DS 

FR0M DS 

FRE DS 


00E0 = 0001 FR1 DS 

00E1 = 0005 FR1M DS 


00E6 = 0006 FR2 DS 

00EC = 0001 FRX DS 



FPREC—1 
FPREC 

FPREC—1 


VARIABLE TYPE 
VARIABLE TYPE 
VARIABLE NUMBER 
VARIABLE NUMBER 

LENGTH OF FLOATING POINT 
MANTISSA 
FP REGO 
FP REG0 

FP REG0 MANTISSA 


FP SPARE 


RAM for ASCII to Floating Point Conversion 


00ED 

00EE 

00EE 


00EF 

00EF 

00F0 

00F0 

00F1 


= 0001 


= 0001 


= 0001 
= 0001 


FRSIGN 

SQRCNT 

PLYCNT 

SGNFLG 

FCHRFLG 

XFMFLG 



Input Buffer Controls 

00F2 = 0001 CIX DS 1 

00F3 = 0002 INBUFF DS 2 


Temps 

00F5 = 0002 

00F7 = 0002 

00F9 = 0002 


ZTEMPI DS 2 

ZTEMP4 DS 2 

ZTEMP3 DS 2 


Miscellany 


00FB 

00FC 



DEGFLG 

RADFLG DS 1 

RADON EQU 0 

DEGON EQU 6 

FLPTR DS 2 

FPTR2 DS 2 


VALUE OF E 



SIGN OF EXPONENT 
1ST CHAR FLAG 

# OF DIGITS RIGHT OF DECIMAL 

CURRENT INPUT INDEX 
LINE INPUT BUFFER 

LOW LEVEL ZERO PageTEMPS 


0=RADIANS, 6= DEGREES 
INDICATE RADIANS 
INDICATES DEGREES 
POLYNOMIAL POINTERS 


Miscellaneous Non-Zero Page RAM 


0100 

0480 


0480 

0480 

0001 


ORG MISCR1 

STACK EQU * 

SIX DS 1 


0482 = 0002 SPC 

0484 = 057E ORG 

057E = 0001 LBPR1 

057F = 0001 LBPR2 

0580 = 0080 LBUFF 


STACK+254 


128 


VALUES NOT ACCESSED FREQUENTLY 


; SYNTAX STACK 
; INPUT INDEX 
; OUTPUT INDEX 
; PGM COUNTER 

; LBUFF PREFIX 1 
; BLUFF PREFIX 2 
; LINE BUFFER 
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Equates for Variables 

7 -IN VARIABLE VALUE TABLE 

-ON ARGUMENT STACK 


= 0000 EVTYPE EQU 0 

= 0080 EVSTR EQU $80 

=0040 EVARRAY EQU $40 

= 0002 EVSDTA EQU $02 

= 0001 EVDIM EQU $01 

= 0000 EVSCALER EQU $00 

= 0001 EVNUM EQU 1 

= 0002 EWALUE EQU 2 

= 0002 EVSADR EQU 2 

= 0004 EVSLEN EQU 4 

= 0006 EVSDIM EQU 6 

=0002 EVAADR EQU 2 

= 0004 EVAD1 EQU 4 

= 0006 EVAD2 EQU 6 


; - STRING 
; - ARRAY 

; - ON IF EVSADR IS ABS ADR 
; ON IF HAS BEEN DIM 
; - SCALER 

; VARIABLE NUMBER [83 - FF] 

? SCALAR VALUE [6 BYTES] 

; STRING DISPL [2] 

7 STRING LENGTH [2] 

7 STRING DIM [2] 

; ARRAY DISPL [2] 

; ARRAY DIM 1 [2] 

; ARRAY DIM 2 [2] 


Equates for Run Stack 

EQU 6 

EQU 0 


7 LENGTH OF HEADER FOR FOR/GOSUB 
7 LENGTH OF BODY OF FOR ELEMENT 
; DISP TO SAVED LINE DISP 
7 DISPL TO LINE # IN HEADER 
7 DISPL TO TYPE IN HEADER 
7 DISPL TO STEP IN FOR ELEMENT 
7 DISPL TO LIMIT IN FOR ELEMENT 



= 0006 
= 0000 


GFHEAD 

FBODY 

GFDISP 

GFTYPE 

FSTEP 

FLIM 


ROM Start 


Cold Start 
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A02C A001 
A02E 207FA8 
A031 A28C 
A033 A003 

A035 207FA8 


A038 A900 



LDY #1 

JSR EXPLOW 

LDX #STARP 

LDY #3 

JSR EXPLOW 

LDA #0 

STA [VNTD],Y 

STA [STMCUR],Y 

I NY 

LDA #$80 

STA [STMCUR],Y 


FOR END OF VNT 
ZERO BYTE 
EXPAND STMT TBL 
BY 3 BYTES 



INTO WTP 
INTO STMCUR+0 

$80 INTO 
STMCUR+1 


A045 A903 

A047 918A 


LDA #$03 ; $03 INTO 

STA [STMCUR],Y ; STMCUR+2 


A049 A90A 
A04B 85C9 


#10 

PTABW 


SET PRINT TAB 
WIDTH TO 10 


Warm Start 


A04D 20F8B8 
A050 2041BD 

A053 2072BD 

A056 A592 

A058 F003 *A05D 

A05A 2099BD 
A05D 2057BD 


WARMSTART - BASIC RESTART 

DOES NOT DESTROY CURRENT PGM 


WARMSTART 

JSR RUNINIT 

SNX1JSR CLSALL 

SNX2JSR SETDZ 

LDA MEOLFLG 

BEQ SNX3 

JSR RSTSEOL 

SNX3 JSR PREADY 


7 GO CLOSE DEVICE 1-7 
7 SET E/L DEVICE 0 
7 IF AN EOL INSERTED 

? THEN UN-INSERT IT 
7 PRINT READY MESSAGE 


Syntax 

A060 LOCAL 

Editor — Get Lines of Input 


A060 SYNTAX 

A060 A5CA LDA 

A062 D09C ~A000 BNE 

A064 A2FF LDX 

A066 9A TXS 

A067 2051DA JSR 

A06A A95D LDA 

A06C 85C2 STA 

A06E 2092BA JSR 

A071 20F4A9 JSR 

A074 D0EA "A060 BNE 


LOADFLG 

COLDSTART 


INTLBF 

#EPCHAR 

PROMPT 


TSTBRK 

SYNTAX 


IF LOAD IN PROGRESS 
GO DO COLDSTART 
RESTORE STACK 

GO INT LBUFF 



A08E 20A1DB 
A091 209FA1 
A094 20C8A2 
A097 A5D5 


JSR SKBLANK 

JSR :GETLNUM 

JSR :SETCODE 

LDA BININT+1 


7 SKIP BLANKS 

7 CONVERT AND PUT IN BUFFER 
7 SET DUMMY FOR LINE LENGTH 
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A09D 

A09D 20A1DB 
A0A0 A4F2 
A0A2 84A8 
A0A4 B1F3 
A0A6 C99B 
A0A8 D007 ~A0B1 
A0AA 24A6 
A0AC 30B2 ~A060 
A0AE 4C89A1 


JSR SKBLANKS 

STY STMSTRT 

LDA [INBUFF] # Y 

CMP #CR 

BNE :SYN1 

BIT DIRFLG 

BMI SYNTAX 

JMP :SDEL 


; SKIP BLANKS 

7 SAVE INCASE OF SYNTAX ERROR 
;GET NEXT CHAR 
;IS IT CR 

7 IF NO LINE NO. 

; THEN NO. DELETE 
7GO DELETE STMT 


A0B1 

A0B1 A594 
A0B3 85A7 
A0B5 20C8A2 



7AS PM TO STMT LENTGH BYTE 
7 DUMMY FOR STMT LENGTH 


A0B8 20A1DB 
A0BB A9A4 
A0BD A0AF 
A0BF A202 
A0C1 2062A4 
A0C4 86F2 


A0CE 

A0D1 


20C8A2 
20A1DB 
20C3A1 
9035 * 




JSR SKBLANK 

LDA ISNTAB/256 

LDY #SNTAB&255 

LDX #2 

JSR SEARCH 

STX CIX 

LDA STENUM 

JSR :SETCODE 

JSR SKBLANK 

JSR :SYNENT 




LDA [INBUFF], Y 

CMP #CR 

BNE :SYN3A 

STA [INBUFF],Y 


:SYN3A ORA #$80 

STA [INBUFF],Y 


;GO SKIP BLANKS 
7 SET UP FOR STMT 
7 NAME SEARCH 


7AND GO SYNTAX HIM 
7 BR IF OK SYNTAX 
7 ELSE SYNTAX ERROR 
7 GET MAXCIX 



7 BLANK IN IT'S PLACE 
7 SET MAXCIX CHAR 


A0E7 05A6 


A0EB A4A8 
A0ED 84F2 
A0EF A203 
A0F1 86A7 
A0F3 E8 


LDA #$40 

ORA DIRFLG 

STA DIRFLG 

LDY STMSTRT 


7 INDICATE SYNTAX ERROR 

7 IN DIRFLG 
?RESTORE STMT START 


A0F6 A937 
A0F8 20C8A2 
A0FB 

A0FB A4F2 
A0FD B1F3 

A101 C99B 
A103 D0F3 ''A0F8 
A105 20C8A2 



:SYN3 JSR :SETCODE 

:XDATA 

LDY CIX 

LDA [INBUFF],Y 


JSR :SETCODE 

:SYNOK LDA COX 

LDY STMLBD 

STA [OUTBUFF], Y 

LDY CIX 

LDA [INBUFF],Y 



7GET INDEX 
?GET INDEX CHAR 



?SET LENGTH BYTE 
7GET INPUT DISPL 
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A192 

A195 

A196 


A19C 


20D0A9 

A8 

A28A 

20FBA8 

4C60A0 


JSR GNXTL 

PLA 


LDX #STMCUR 
JSR CONTLOW 
JMP SYNTAX 


Get a Line Number 


A19F 

A19F 200008 
A1A2 9008 "A1AC 
A1A4 


GETLNUM-GET A LINE NO FROM ASCLT IN INBUFF 
TO BINARY INTO OUTBUFF 

GETLNUM 


BCC :GLNUM 


GO CONVERT LINE # 
BR IF GOOD LINE # 



A1AC 2056AD :GLNUM 

A1AF A4D5 LDY 

A1B1 30F1 "A1A4 BMI 

A1B3 A5D4 LDA 


CVFPI 

BININT+1 

BININT 


CONVERT FP TO INT 
LOAD RESULT 
BR IF LNO>32767 


A1B5 

A1B5 84A1 
A1B7 85A0 
A1B9 20C8A2 
A1BC A5A1 
A1BE 85D5 
A1C0 4CC8A2 


:SLNUM 



TSLNUM+1 
TSLNUM 
:SETCODE 
TSLNUM+1 
BININT+1 
:SETCODE 



OUTPUT LOW 
OUTPUT HI 

AND RETURN 


SYNENT 


PERFORM LINE PRE-COMPILE 



; GET PC HIGH 
* SET PGM COUNTERS 


;SET STKLUL 
;SET STKLUL 

•COX TO SOX 



NEXT 


= A1E2 
A1E2 20A1A2 

A1E5 301A ~A201 


A1E7 C901 




*A215 

~A1F5 


GET NEXT SYNTAX CODE 
AS LONG AS NOT FAILING 


R IF REL-NON-TERMINAL 
R CODE=0 [ABS-NON-TERMINAL] 


A1ED 2015A2 
A1F0 90F0 ~A1E2 
A1F2 4C6CA2 


A1F5 C905 
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PUSH 


A22A 

A22B 

A22C 


E8 


~A24F 


A232 A5F2 
A234 9D8004 

A239 9D8104 

A23C A59D 
A23E 9D8204 
A241 A59E 
A243 9D8304 

A246 68 

A247 859E 

A249 68 

A24A 859D 
A24C 4CE2A1 

A24F 4C24B9 




STACK LEVEL 


r STACK LEVEL 


• SAVE NEW STACK LEVEL 


STACK OX 
CPC TO 
STACK CPC 


POP 


LOAD CPC FROM STACK PC 

AND DECREMENT TO PREV STACK LEVEL 


= A252 
A252 A6A9 
A254 D001 ~A257 


STKLVL ; GET STACK LEVEL 
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GET NEXT SYNTAX CODE 
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TEST A TERMINAL C 


A2B4 A9AS 


#:EXP-1&2E 
#:EXP/256 




(tOPNTAB/25 
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TVAR 


EXTERNAL SUBROUTINE FOR TNVAR Sc TSVAR 


A32A A900 :TNVAR LDA #0 ; SET NUMERIC TEST 

A32C F002 ~A330 BEQ :TVAR 


:TSVAR 


#$80 


SET STR TEST 


A330 85D2 

A332 20A1DB 
A335 A5F2 
A337 85AC 


:TVAR STA TVTYPE 

JSR SKPBLANK 

LDA CIX 

STA TVSCIX 


SKIP LEADING BLANKS 
GET INDEX 
FOR SAVING 


A339 20F3A3 

A33C B025 *A363 
A33E 20E6A2 
A341 A5B0 
A343 F008 A A34D 

A345 A4B2 
A347 B1F3 


A34B 9016 *A363 


JSR :TSTALPH 

BCS :TVFAIL 

JSR :SRCONT 

LDA SVONTC 

BEQ :TV1 

LDY SVONTL 

LDA [INBUFF],Y 

CMP #$30 

BCC ; TVFAIL 


GO TEST FIRST CHAR 
BR NOT ALPHA 
IF THIS IS A 
RESVD NAME 
BR NOT RSVDNAME 
IF NEXT CHAR AFTER 
RESERVED NAME 
NOT ALARM NUMERIC 
THEN ERROR 


A34D E6F2 
A34F 20F3A3 
A352 90F9 ~A34D 

A354 20AFDB 



BCC 

BCC 


INC TO NEXT CHAR 


TRY NUMBER 
BR IF NUMBER 


[INBUFF], Y 
#'$• 

:TVSTR 
TVTYPE 


GET OFFENDING CHAR 
IS IT $ 

BR IF $ [STRING] 
THIS A NVAR SEARCH 


A363 38 


:TVFAIL 


CODE 


A365 24D2 


:TVSTR BIT TVTYPE 

BPL :TVFAIL 


TEST SVAR SEARCH 
BR IF SVAR 
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A487 68 

A488 08 


POP STATUS 
PUSH NE STATUS 


A489 C8 
A48A E8 

A48B 90EC ~A479 



A48D 28 

A48E F00B ~A49B 


PLP 

BEQ :SRCFND 


7 INC TABLE INDEX 

7 IF TABLE MSB OFF, CONTINUE 

7ELSE END OF ENTRY 

7GET STATUS 

?BR IF NO MIS MATCH 


A490 

A490 18 


A491 


A495 

A497 

A499 


6595 

A8 

A596 

6900 

D0CD 




SRCADR 


SRCADR+1 


: SRC1 


7ACV=ENTRY LENGTH 
7 PLUS START ADR [L] 
:TO Y 
7 ETC 


CLC 


7 INDICATE FOUND 


:SRCNF 
RTS 


SEC 


7 INDICATE NOT FOUND 


A49F A902 
A4A1 C5AA 
A4A3 D0DD ~A482 
A4A5 B195 
A4A7 3003 ~A4AC 
A4A9 C8 

A4AA D0F9 ~A4A5 
A4AC 38 

A4AD B0DA ~A489 


CMP 

BNE 


BCS 


:SRC2A 

[SRCADR],Y 
: SRC7 


IF NOT 

STMT NAME TABLE 
THEN IGNORE 

7TEST MSB OF TABLE 
IF ON DONE 
ELSE 

LOOK AT NEXT CHAR 
INDICATE MSB ON 
AND RE-ENTER CODE 


Statement Name Table 

SNTAB- STATEMENT NAME TABLE 

EACH ENTRY HAS SYNTAX TABLE A 
FOLLOWED BY STMT NAME 


A4C3 434F4C4FD2 


A4CE 

A4D0 

A4D5 

A4D7 


23A7 

454E5445D2 

BFA6 

4C45D4 


: SENTER-1 
'ENTER' 

:SLET-1 
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4E4558D4 


A4E9 BCA6 
A4EB 474F54CP 

A4EF BCA6 
A4F1 474F2054CF 

A4F6 BCA6 
A4F8 474F5355C2 


A4FF 545241D0 


A503 BDA6 
A505 4259C5 

A508 BDA6 
A50A 434F4ED4 

A50E 5FA7 
A510 434FCD 


A513 20A7 

A515 434C4F53C5 

A51A BDA6 
A51C 434CD2 
A51F BDA6 
A521 4445C7 

A524 5FA7 
A526 4449CD 

A529 BDA6 
A52B 454EC4 

A52E BDA6 
A530 4E45D7 

A533 19A7 

A535 4F5045CE 

A539 23A7 

A53B 4C4F41C4 
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A577 524541C4 


'READ' 


A57B EEA6 
A57D 524553544F 
52C5 


:SREST-1 
'RESTORE' 


A584 BDA6 
A586 5245545552 

CE 


jSRET-1 
'RETURN' 


A58C 26A7 
A58E 5255CE 


A591 BDA6 
A593 53544FD0 


A597 BDA6 DW 

A599 504FD0 DC 

A59C FBA6 * DW 

A59E BF DC 


A59F E7A6 
A5A1 4745D4 
A5A4 B9A6 


A5B3 5CA7 * DW 

A5B5 504C4FD4 DC 


A5B9 5CA7 DW 

A5BB 504F534954 DC 

494FCE 


A5C3 BDA6 DW 

A5C5 444FD3 DC 


A5C8 5CA7 DW 

A5CA 4452415754 DC 

CF 


:SGET-1 

•GET' 

iSPUT-1 

'GRAPHICS' 

:SPLOT—1 


:SDRAWTO-1 
'DRAWTO' 


A5D0 5AA7 
A5D2 534554434F 
4C4FD2 


:SSETCOLOR-1 
'SETCOLOR' 


A5DA E1A6 ’ DW 

A5DC 4C4F434154 DC 


:SLOCATE—1 
'LOCATE' 


A5E2 58A7 DW 
A5E4 534F554EC4 DC 
A5E9 FFA6 DW 
A5EB 4C5052494E DC 


:SSOUND-1 
' SOUND' 

:SLPRINT-1 
'LPRINT' 


A5F3 43534156C5 


A5FA 434C4F41C4 


A601 00 

A602 8000 

A604 2A4552524F 

522D20 
A60C A0 


:SCLOAD—1 


'*ERROR- ' 
$A0 
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<SFP> = <STR> )# 


A678 :SFP SYN CLPRN,:CHNG,CFLPRN 

A678 +2B DB CLPRN 

A679 +0F DB : CHNG 

A67A +3A DB CFLPRN 



<SFUN> = SFNP<NFP># 



< SVAR > = < TSVAR > < SMAT > # 



< SMAT > = ( <EXP> < SMAT2 > ) | &# 
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<LET> = <NVAR> = <EXP> <EOS> | <SVAR> = <STR> <EOS># 
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A6D8 

A6D9 

A6D9 

A6DA 

A6DA 

A6DB 

A6DB 

A6DC 


+0E 

+19 


+C3 


SYN 

SYN 


: VEXP 



JS,:FSTEP 

$80+(((:FSTEP-*)&$7F) XOR $40 ) 
$80+(((:E0S-*)fit$7F) XOR $40 ) 

: RTN 


< FSTEP > = STEP < EXP > | & 

A6DE +1A DB 

A6DF SYN 

A6DF +0E DB 


CSTEP 
: VEXP 



A6E1 SYN :RTN 

A6E1 +03 DB :RTN 


<LOCATE> = <EXP>,<EXP>,<TNVAR> <EOL># 


A6E2 

A6E2 

A6E2 +0E 


A6E3 +12 
A6E4 

A6E4 +0E 
A6E5 

A6E5 +12 

A6E6 +C4 
A6E7 

A6E7 +03 


:SLOCATE 



$80+(((:SNEXT-*)&$7F) 



< GET > = < D1 >, < TNVAR > # 


$40 ) 


A6E8 

A6E8 +DD 
A6E9 

A6E9 +12 


•StfU-wn X0R $ 40 ) 


<NEXT> = < TNVAR > < EOS > # 


A6EB +29A3 


A6ED +CB 
A6EE 



:ESRT,AD,:TNVAR-1 
(:TNVAR-1) 

$80+(((:EOS-*)&$7F) XOR $40 
: RTN 


<RESTORE> = <EXP> <EOS> | <EOS># 


A6F0 

A6F0 +C8 
A6F1 

A6F1 +02 
A6F2 

A6F2 +C6 
A6F3 

A6F3 +03 


$40 ) 


$40 ) 
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A778 +29A3 
A77A 
A77A +2B 
A77B +0F 
A77C +39 

A77D +0E 
A77E 

A77E +00 
A77F +58A6 
A781 

A781 +2C 
A782 

A782 +02 
A783 

A783 +01 
A784 +2DA3 
A786 

A786 +2B 
A787 +0F 
A788 +3B 
A789 

A789 +0E 
A78A 
A78A +2C 


SYN 

DB 


SYN 

SYN 

SYN 


SYN 


(:TNVAR-1) 

CLPRN,:CHNG,CDLPRN 
CLPRN 

CDLPRN 
: VEXP 


:ANTV,AD,:NMAT2-1 


(:NMAT2-1) 


:ESRT,AD,:TSVAR-1 


(:TSVAR-1) 

CLPRN,:CHNG,CDSLPR 
CLPRN 
:CHNG 
CDSLPR 




<NSML> = < NSMAT> < NSML2> | &# 


A78C 

A78C +AB 
A78D 

A78D +C3 
A78E 

A78E +02 
A78F +03 


JS,:NSMAT 

$80+(((:NSMAT-*)&$7F) XOR $40 ) 
JS,:NSML2 

$80+(((:NSML2-*)&$7F) XOR $40 ) 



<NSML2> =,<NSML> | &# 

A790 :NSML2 SYN 

A790 +12 DB 

A791 SYN 

A791 +BB DB 

A792 SYN 

A792 +02 DB 

A793 +03 DB 



<IF> = <EXP> THEN <IFA> <EOS># 


A794 

A794 +0E 
A795 

A795 +1B 
A796 

A796 +C3 
A797 

A797 +9C 


A798 


DB 


CTHEN 

$80+(((:IFA-*)&$7F) XOR $40 ) 
$80+(((:EOS2-*)&$7F) XOR $40 ) 
: RTN 


<IFA> = <TNCON> | <EIF> 


A799 
A799 +01 
A79A +FFA3 
A79C 

A79C +02 


A79E +D3A2 


(:TNCON-1) 
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<SFNP> = STR | CHR# 



<PUSR> = <EXP> <PUSR1 ># 
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Memory Manager 


MEMORY MANAGEMENT CONSISTS OF EXPANDING AND 
CONTRACTING TO INFORMATION AREA POINTED TO 
BY THE ZERO PAGE POINTER TABLES. ROUTINES 
MODIFY THE ADDRESS IN THE TABLES AND 
MOVE DATA AS REQUIRED. THE TWO FUNDAMENTAL 
ROUTINES ARE 'EXPAND' AND 'CONTRACT' 


EXPAND 


; X = ZERO PAGE ADDRESS OF TABLE AT WHICH 

; EXPANSION IS TO START 

; Y = EXPANSION SIZE IN BYTES [LOW] 

; A = EXPANSION SIZE IN BYTES [HIGH] 

; EXPLOW - FOR EXPANSION < 256 BYTES 


A87F A900 


LDA #0 


A881 

A881 84A4 

A883 85A5 


EXPAND 

STY ECSIZE 

STA ECSIZE+1 


SAVE EXPAND SIZE 


A886 A590 


LDA MEMTOP 

ADC ECSIZE 


A88A A8 TAY 
A88B A591 LDA 
A88D 65A5 ADC 
A88F CDE602 CMP 
A892 900C ~A8A0 BCC 
A894 D007 ~A89D BNE 
A896 CCE502 CPY 
A899 9005 ~A8A0 BCC 
A89B F003 "A8A0 BEQ 
A89D 4C3CB9 :EXP1 


MEMTOP+1 
ECSIZE+1 
HIMEM+1 
: EXP 2 




TEST MEMORY TO BE FULL 
MEMTOP+ECSIZE+1 


HIMEM 


A8A0 38 
A8A1 A590 


A8A5 85A2 
A8A7 A591 
A8A9 F501 
A8AB 85A3 


LDA 

STA 


SBC 


MEMTOP 

0,X 

MVLNG 

MEMTOP+1 


A8AD 18 CLC 

A8AE 7501 ADC 1,X 

A8B0 859A STA MVFA+1 


FORM MOVE LENGTH [MVLNG] 
MOVE FROM ADR [MVFA] 

MVLNG = MEMTOP-EXPAND ADR 

MVFA[L] = EXP ADR [L] 

MVFA[H] = EXP ADR[H] + 
MVLNG[H] 

DURING MOVE MVLNG[L] 

THAT MVFA = MEMTOP 



A8C2 65A3 


SVESA+1 

MVLNG+1 


SAVE PREMOVE EXPAND AT VALUE 

SET MVFA LOW 

FORM MOVE TO ADR [MVTA] 

MVTA[L] = EXP ADR[L] + 

ECSIZE[L] 

MVTA[H] = [CARRY + EXP 
AD-[H] 

+ECSIZE[H]] + MVLNG[H] 

DURING MOVE MVLNG[L] 

WILL BE ADDED SUCH THAT 
MVTA = MEMTOP + ECSIZE 
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A8C6 B500 
A8C8 65A4 
A8CA 9500 
A8CC B501 
A8CE 65A5 
A8D0 9501 
A8D2 E8 
A8D3 E8 
A8D4 E092 
A8D6 90EE ~A8C6 
A8D8 850F 
A8DA A590 
A8DC 850E 


ADC ECSIZE 


ECSIZE+1 


CPX #MEMTOP+2 

BCC :EXP3 

STA APHM+1 

LDA MEMTOP 


ADD ECSIZE TO 
ALL TABLE ENTRIES 
FROM EXPAND AT ADR 
TO HIMEM 


MVLNG 
:EXP6 
: EXP 7 


A8E8 C69A 
A8EA C69C 


A8F1 D0F9 ~A8EC 


:EXP4 DEY 


;EXP5 
EXP 6 


; DEC MVLNG[L] 

; DEC MVFA[H] 

; DEC MVTA[H] 

; MVFA BYTE 
* DEC COUNT LOW 


A8F7 

A8F7 CA 

A8F8 D0ED A A8E7 


X = ZERO PAGE ADR OF TABLE AT WHICH 
CONTRACTION WILL START 
V = CONTRACT SIZE IN BYTES [LOW] 

& = CONTRACT SIZE IN BYTES [HI] 


A8FB A900 
A8FD 

A8FD 84A4 
A8FF 85A5 


38 


CONTLOW LDA #0 

CONTRACT 

STY ECSIZE 

STA ECSIZE+1 

SEC 

LDA MEMTOP 

SBC 0,X 

EOR #$FF 



A90A 84A2 


A90C A591 
A90E F501 
A910 85A3 

A912 B500 

A914 E5A2 
A916 8599 

A918 B501 



LDA 


MVLNG 

MEMTOP+1 

MVLNG+1 

0,X 

MVLNG 



7 SAVE CONTRACT SIZE 


7 FORM MOVE LENGTH [LOW] 

7 MVLNG[L] = $100- 
? [MEMTOP[L]] - CON AT 
VALUE [L] 

7 THIS MAKES START Y AT 
7 MOVE HAVE A 2'S COMPLEMENT 
7 REMAINDER IN IT 

7 FORM MOVE LENGTH[HIGH] 


FORM MOVE FROM ADR [MVFA] 
MVFA = CON AT VALUE 
MINUS MVLNG[L] 

DURING MOVE MVLNG[L] 
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A91C 859A 
A91E 869B 


:CONTI SEC 


A92D E8 
A92E E8 
A92F E092 
A931 90ED ~A920 
A933 850F 

A935 A590 

A937 850E 

A939 A69B 


ECSIZE 

0,X 

ECSIZE+1 


#MEMTOP+2 
:CONTI 
APHM+1 


; MVFA IN [IND],Y INST 
; TEMP SAVE OF CON AT DISPL 

SUBTRACT ECSIZE FROM 

; ALL TABLE ENTRY FROM 
; CON AT ADR TO HIMEM 


SET NEW APL 


A MOVE T 


3 ADR [MVTA] 

; MINUS MVLNG [L] 

7 DURING MOVE MVLNG[L] 

7 WILL BE ADDED BACK INTO 
7 MVTA IN [INO] # Y INST 


A94A A4A2 
A94C D006 ~A954 
A94E F00B A A95B 


MVLNG 
:CONT2 


; GET MOVE LENGTH HIGH 
; INC SO MOVE CAN BNE 
7 GET MOVE LENGTH LOW 
; IF NOT ZERO GO 
; BR IF LOW = 0 


A954 B199 

A956 919B 

A958 C8 

A959 D0F9 ~A954 
A95B 

A95B CA 

A95C D0F2 "A950 


INCREMENT COUNT L 


Execute Control 


A95F 

EXECNL-Execute 


A95F 201BB8 

EXECNS — Execute 

A962 

A962 20F4A9 

A969 C49F 


Next Line 

; START PROGRAM EXECUTOR 
EXECNL 


SETLN1 


Next Statement 

EXECNS 


TSTBRK 

NXTSTD 

LLNGTH 


183 







Source Code 



A971 98 

A972 C8 
A973 B18A 
A975 C8 
A976 84A8 


LDA [STMCUR],Y 

STA NXTSTD 


;GET NEW STMT LENGTH 
;SAVE AS FUTURE STMT LENGTH 
;Y=DISPL TO THIS STMT LENGTH 


STY STINDEX 


■ SET WORK INDEX 


A978 207EA9 

A97B 4C62A9 


A97E 

A97E +0A 
A97F AA 
A980 BD00AA 
A983 48 

A984 BD01AA 
A987 48 

A988 60 



;TOKEN*2 


? GET ADR AND 
rPUSH TO STACK 



A989 


A98B B18A 
A98D 3010 *A99F 


A991 

A994 

A997 


20D0A9 
20E2A9 
10C6 ~A95F 


LDA LLNGTH 

JSR GNXTL 

JSR TENDST 


;GET LINE LENGTH 
?INC STMCUR 
;TEST END STMT TABLE 
;BR NOT END 


A999 4C8DB7 :EXDONE 

A99C 4C93B7 sEXBRK 

A99F 4C5DA0 :EXFD 


XEND ; GO BACK TO SYNTAX 

XSTOP ; BREAK, DO STOP 

SNX3 ; GO TO SYNTAX VIA READY MSG 


GETSTMT - Get Statement in Statement Table 


; SEARCH FOR STMT THAT HAS TSLNUM 

; SET STMCUR TO POINT TO IT IF FOUND 

; OR TO WHERE IT WOULD GO IF NOT FOUND 

; CARRY SET IF NOT FOUND 

A9A2 GETSTMT 


SAVE CURRENT LINE ADDR 


A9A2 A58A 
A9A4 85BE 
A9A6 A58B 
A9A8 85BF 
A9AA A589 
A9AC A488 


LDA STMCUR 

STA SAVCUR 

LDA STMCUR+1 

STA SAVCUR+1 

LDA STMTAB+1 

LDY STMTAB 


;START AT TOP OF TABLE 


A9AE 858B STA STMCUR+1 ? SET STMCUR 

A9B0 848A STY STMCUR 


A9B2 

A9B4 

A9B6 

A9B8 

A9BA 


A9C3 

A9C5 

A9C6 


B18A 

C5A1 

900D *A9C7 
D00A "A9C6 


60 



[STMCUR],Y 
TSLNUM+1 


: GS3 

[STMCUR],Y 
TSLNUM 
:GS3 
:GSRT1 


;GET STMT LNO [HI] 
;TEST WITH TSLNUM 

;BR IF S>TS 

;S=TS, TEST LOW BYTE 


•S=TS, CLEAR CARY 
;AND RETURN [FOUND] 


A9C7 20DDA9 


GETLL ;GO GET THIS GUYS LENGTH 
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A9CA 20D0A9 JSR GNXTL 

A9CD 4CB2A9 JMP :GS2 


A9D3 

A9D5 

A9D6 

A9D8 

A9DA 

A9DC 



658A 

858A 


A58B 


858B 

60 

A002 

B18A 


STMCUR 

STMCUR 

STMCUR+1 

STMCUR+1 

LDY #2 

[STMCUR],Y 


;ADD LENGTH TO STMCUR 


TENDST — Test End of Statement Table 


A9E2 

A9E2 A001 
A9E4 B18A 
A9E6 60 
A9E7 
A9E7 

A9E7 60 


TENDST 


INDEX TO CNO ['I] 
GET CNO [HI] 


TESTRTS RTS 


XBYE - Execute BYE 




XDOS — Execute DOS 

A9EE XDOS 

A9EE 2041BD JSR 

A9F1 6C0A00 JMP 


CLSALL 

BYELOC 


[DOSLOC] 


TSTBRK - Test for Break 





Statement Execution Table 


STETAB-STATEMENT EXECUTION TABLE 

-CONTAINS STMT EXECUTION ADR 
-MUST BE IN SAME ORDER AS SNTAB 



AA02 

AA02 

AA04 

AA06 


AA08 

AA08 


+A9E6 

+A9E6 
= 0001 


DW REV (XREM-1) 

DW REV (XDATA-1) 

CDATA EQU (*-STETAB)/2-1 

FDB XINPUT-1 

DW REV (XINPUT-1) 

FDB XCOLOR—1 

DW REV (XCOLOR—1) 

CLIST EQU (*—STETAB)/2—1 
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AA0E 

AA0E +B777 
AA10 

AA10 +B64A 

= 0008 

AA12 

AA12 +B6CE 
AA14 

AA14 +B6A2 

AA16 +B6A2 
AA18 

AA18 +B69F 

= 000C 

AA1A 

AA1A +B7E0 

AA1C +A9E7 
AA1E 

AA1E +B7BD 
AA20 

AA20 +B1D8 
AA22 

AA22 +BC1A 

AA24 +B765 
AA26 

AA26 +B260 

AA28 +B1D8 
AA2A 

AA2A +B78C 
AA2C 

AA2C +A00B 
AA2E 

AA2E +BBEA 
AA30 

AA30 +BAFA 

AA32 +BB5C 
AA34 

AA34 +BC27 
AA36 

AA36 +BC35 
AA38 

AA38 +BC4C 
AA3A 

AA3A 4-BBE4 
AA3C 

AA3C +B7EC 


AA3E +B24B 

AA40 +B3B5 
AA42 

AA42 +B265 


AA48 +B718 
AA4A +B74C 


FDB 


DR-1 


CFOR EQU (*-STETAB)/2-l 

FDB XNEXT-1 

DW REV (XNEXT-1) 

FDB XGOTO-1 

DW REV (XGOTO-1) 

FDB XGOTO-1 

DW REV (XGOTO-1) 

FDB XGOSUB-1 

DW REV (XGOSUB-1) 

CGOSUB EQU (*-STETAB)/2-l 

FDB XTRAP-1 

DW REV (XTRAP-1) 

DW REV (XBYE-1) 

FDB XCONT-1 

DW REV (XCONT-1) 

FDB XCOM-1 


XEND-1 

REV (XEND-1) 

XNEW-1 

REV (XNEW-1) 

XOPEN-1 

REV (XOPEN-1) 

XLOAD-1 

REV (XLOAD-1) 

XSAVE-1 

REV (XSAVE-1) 

XSTATUS-1 

REV (XSTATUS-1) 

XNOTE-1 

REV (XNOTE-1) 

XPOINT-1 

REV (XPOINT-1) 


CREAD EQU 


r (XXIO-1 


J (*—STETAB)/2—1 

REV (XPOKE-1) 

XPRINT-1 

REV (XPRINT-1) 

REV (XRAD-1) 
XREAD-1 

(♦-STETAB)/2-1 
XREST-1 
REV (XREST-1) 


REV (XF 
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AA4C +B792 
AA4E 

AA4E +B840 
AA50 

AA50 +B3B5 

AA52 +BC7E 
AA54 

AA54 +BC71 
AA56 

AA56 +BA4F 
AA58 

AA58 +BA75 
AA5A 

AA5A +BA15 
AA5C 

AA5C +A9ED 
AA5E 

AA5E +BA30 
AA60 

AA60 +B9B6 
AA62 

AA62 +BC94 

AA64 +B9DC 
AA66 

AA66 +B463 
AA68 


AA68 +BBA3 



AA6E +B91D 


= 0037 


DW REV (XSTOP-1) 

DW REV (XPOP-1) 

FDB XPRINT-1 

DW REV (XPRINT-1) 

DW REV (XGET-1) 

DW REV (XPUT-1) 

FDB XGR-1 

DW REV (XGR-1) 

FDB XPLOT-1 

DW REV (XPLOT-1) 

DW REV (XPOS-1) 

DW REV (XDOS-1) 

FDB XDRAWTO-1 

DW REV (XDRAWTO-1) 

FDB XSETCOLOR—1 

DW REV (XSETCOLOR—1) 

FDB XLOCATE-1 

DW REV (XLOCATE-1) 

FDB XSOUND-1 

DW REV (XSOUND-1) 

FDB XLPRINT-1 

DW REV (XLPRINT-1) 

FDB XCSAVE-1 

DW REV (XCSAVE-1) 

FDB XCLOAD—1 

DW REV (XCLOAD-1) 

FDB XLET-1 

DW REV (XLET-1) 

CILET EQU (*-STETAB)/2-l 

FDB XERR-1 

DW REV (XERR-1) 

CERR EQU (*-STETAB)/2-l 


Operator Execution Table 


AA70 

AA70 


AA70 +ACB4 
AA72 

AA72 +ACBD 
AA74 

AA74 +ACD4 
AA76 

AA76 +ACC4 
AA78 

AA78 +ACCB 


AA7A +ACDB 
AA7C 

AA7C +B164 
AA7E 

AA7E +AC95 
AA80 

AA82 

AA82 +AC8C 
AA84 

AA84 +AC9E 
AA86 

AA86 +ACF8 
AA88 

AA88 +ACED 


; OPETAB - OPERATOR EXECUTION TABLE 

; - CONTAINS OPERATOR EXECUTION ADR 

; - MUST BE IN SAME ORDER AS OPNTAB 

OPETAB 

FDB XPLE-1 

DW REV (XPLE-1) 

DW REV (XPNE-1) 

DW REV (XPGE-1) 

DW REV (XPLT-1) 

DW REV (XPGT-1) 

FDB XPEQ-1 

DW REV (XPEQ-1) 

FDB XPPOWER—1 

DW REV (XPPOWER—1) 

FDB XPMUL-1 

DW REV (XPMUL-1) 

DW REV (XPPLUS-1) 

FDB XPMINUS—1 
DW REV (XPMINUS—1) 

FDB XPNOT-1 

DW REV (XPNOT-1) 

FDB XPOR-1 

DW REV (XPOR-1) 
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AA8A 

AA8A +ACE2 
AA8C 

AA8C +AB1E 
AA8E 

AA8E +AD7A 
AA90 

AA90 +AD5E 
AA92 

AA92 +AEA2 
AA94 

AA94 +ACB4 
AA96 

AA96 +ACBD 
AA98 

AA98 +ACD4 

AA9A +ACC4 
AA9C 

AA9C +ACCB 
AA9E 

AA9E +ACDB 
AAA0 

AAA0 +ACB3 



AAA4 +AE25 
AAA6 


DW REV (XPAND-1) 

FDB XPLPRN—1 

DW REV (XPLPRN-1) 

FDB XPRPRN-1 

DW REV (XPRPRN-1) 

FDB XPAASN-1 

DW REV (XPAASN-1) 

FDB XSAASN-1 

DW REV (XSAASN-1) 

FDB XPSLE-1 

DW REV (XPSLE-1) 

FDB XPSNE-1 


FDB XPSGE-1 

DW REV (XPSGE-1) 

FDB XPSLT-1 

DW REV (XPSLT-1) 

DW REV (XPSGT-1) 

FDB XPEQ-1 

DW REV (XPEQ-1) 

FDB XPUPLUS-1 

DW REV (XPUPLUS-1) 

FDB XPUMINUS-1 

DW REV (XPUMINUS-1) 

FDB XPSLPRN—1 

DW REV (XPSLPRN-1) 

FDB XPALPRN-1 


+AD85 

+AD81 

+AD7A 

+AD81 

+AD78 


DW REV (XPALPRN-1) 

FDB XPDLPRN-1 

DW REV (XPDLPRN-1) 

FDB XPFLPRN-1 

DW REV (XPFLPRN-1) 

FDB XDPSLP-1 

DW REV (XDPSLP-1) 

FDB XPACOM-1 

DW REV (XPACOM-1) 


AAB0 


AAB4 



AAB6 

AAB8 

AAB8 


AABC 


AAC0 

AAC2 

AAC2 

AAC4 

AAC6 

AAC6 


AACC 

AACE 


+B048 


+B0B9 

+B011 

+AFFF 

+AFC9 


+B14C 

+B138 

+B142 


DW REV (XPSTR-1) 

DW REV (XPCHR-1) 

DW REV (XPUSR-1) 

FDB XPASC-1 

DW REV (XPASC-1) 

FDB XPVAL-1 

DW REV (XPVAL-1) 

FDB XPLEN-1 

DW REV (XPLEN-1) 

FDB XPADR-1 

DW REV (XPADR-1) 

DW REV (XPATN-1) 

DW REV (XPCOS-1) 

FDB XPPEEK-1 

DW REV (XPPEEK-1) 

FDB XPSIN-1 

DW REV (XPRND-1) 

FDB XPFRE-1 

DW REV (XPFRE-1) 

FDB XPEXP-1 

DW REV (XPEXP-1) 

FDB XPLOG-1 

DW REV (XPLOG-1) 

FDB XPL10-1 
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AAD0 FDB 

AAD0 +B156 DW 

AAD2 FDB 

AAD2 +AD18 DW 

AAD4 +B0AD DW 

AAD6 FDB 

AAD6 +B0DC DW 

AAD8 FDB 

AAD8 +B021 DW 

XPSQR-1 

REV (XPSQR-1) 
XPSGN-1 

REV (XPSGN-1) 
XPABS-1 

REV (XPABS-1) 
XPINT-1 

REV (XPINT-1) 
XPPDL-1 

REV (XPPDL-1) 



AADC +B029 DW 

REV (XPSTICK—1) 
XPPTRIG—1 

REV (XPPTRIG—1) 



AADE +B02D DW 

REV (XPSTRIG—1) 




Execute Expression 



AAE0 LOCAL 




EXEXPR — Execute Expression 




AAE0 XLET 

AAE0 EXEXPR 

AAE0 202EAB JSR 

EXPINT 

GO INIT 


AAE3 :EXNXT 

AAE3 203EAB JSR 

AAE6 B006 ~AAEE BCS 

:EGTOKEN y 

:EXOT 

GO GET TOKEN 

BR IF OPERATOR 


AAE8 20BAAB JSR 

AAEB 4CE3AA JMP 

ARGPUSH 
:EXNXT 

GO FOR NEXT TOKEN 


AAEE 85AB :EXOT S 

TA EXSVOP 

SAVE OPERATOR 


AAF1 BD2FAC LDA 

0PRTAB-16,X ; 

shif? P for E goes ON TO prec 


AAF4 +4A LSR 

A 



AAF5 +4A LSR 

A 



AAF6 +4A LSR 

A 



AAF7 +4A LSR 

AAF8 85AC STA 

EXSVPR 

SAVE GOES ON PREC 


AAFA A4A9 rEXPTST LI 

AAFC B180 LDA 

[ARGSTK], Y y 

GET OP STACK INDEX 

GET TOP OP 


AAFF BD2FAC LDA 
AB02 290F AND 
AB04 C5AC CMP 
AB06 900D ~AB15 BCC 

OPRTAB—16 # X 
#$0F 

EXSVPR ; 

sEOPUSH 

GET TOP OP PREC 

[TOP OP]: [NEW OP] 

IF T<N, PUSH NEW 


AB09 F014 ~AB1F BEQ 

:EXEND \ 

™en°done E 


AB0B EXOPOP 

AB0B B180 LDA 

AB0D E6A9 INC 

AB0F 2020AB JSR 

AB12 4CFAAA JMP 

[ARGSTK ], Y 

OPSTKX 

:EXOP ; 

:EXPTST ; 

DEC OP STACK INDEX 

GET EXECUTE OP 


AB15 A5AB rEOPUSH LI 

AB17 88 DEY 

AB18 9180 STA 

AB1A 84A9 STY 

ABIC 4CE3AA JMP 

DA EXSVOP ; 

[ARGSTK],Y 

OPSTKX ? 

DEC TO NEXT ENTRY 

SET OP IN STACK 

SAVE NEW OP STACK INDEX 

- 

AB1F XPLPRN 
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AB7A 65D6 
AB7C A8 
AB7D A200 
AB7F A983 

AB81 85D2 
AB83 86D3 
AB85 84A8 
AB87 18 
AB88 60 

AB89 

AB89 

AB89 2028AC 
AB8C B19D 
AB8E 99D200 
AB91 C8 

AB94 90F6 *‘AB8C 
AB96 18 
AB97 60 




y ACU=DISPL TO STR 
VTYPE+EVSLEN ; PLUS STR LENGTH 

; IS NEW INDEX 

#00 ; VAR NO = 0 

#EVSTR+EVSDTA+EVDIM y TYPE = STR 


STA 


VTYPE 

VNUM 

STINDEX 


RTS 


SET TYPE 
SET NUM 
SET NEW INDEX 
INDICATE VALUE 
RETURN 


GWTADR 

LDA [WWTPT ], Y 

VTYPE, Y 


y INDICATE VALUE 
y RETURN 


AAPSTR — Pop String Argument and Make Address Absolute 


AB98 20F2AB 


AAPSTR JSR ARGPOP y GO POP ARG 


GSTRAD — Get String [ABS] Address 


AB9B GSTRAD 

AB9B A902 LDA 

AB9D 24D2 BIT 

AB9F D015 ~ABB6 BNE 



ABA 5 +6 A ROR 

ABA6 900F *ABB7 BCC 


#EVSDTA 
VTYPE 
:GSARTS 
VTYPE 



ABA8 18 
ABA9 A5D4 


CLC 

LDA VTYPE+EVSADR 


ABAB 658C 
ABAD 85D4 
ABAF A8 
ABB0 A5D5 
ABB2 658D 
ABB4 85D5 

ABB6 60 
ABB7 202EB9 


ADC STARP 

STA VTYPE+EVSADR 


LDA 

ADC 




VTYPE+EVSADR+1 

STARP+1 

VTYPE+EVSADR+1 

ERRDIM 


ARGPUSH — Push FRO to Argument Stack 




ABC0 +0A 

ABC1 C5A9 

ABC3 B00D ~ABD2 

ABC5 A8 

ABC 6 88 

ABC7 A207 

ABC9 B5D2 
ABCB 9180 


ARGPUSH 


AS LA 
ASLA 


A SLA 


ARSLVL 


OPSTKX 


#7 


[ARGOPS],Y 


LOAD TRANSFORMED BIT 
TEST STRING ADR TRANSFORM 
BR IF ALREADY TRANSFORMED 
TURN ON TRANS BIT 
AND SET 

SHIFT DIM BIT TO CARRY 


STRING ADR = STRING DISPL 
+ STARP 


INC ARG STK LEVEL 
ACU = ARG STACK LEVEL 
TIMES 8 


TEST EXCEED M 


Y = NEXT ENTRY ADR 


MOVE FR0 
TO ARGOPS 
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10F8 "ABC9 
60 

4C2CB9 


BPL :APH1 

RTS 

Saperr JMP ERRAOS 


GETPINT — Get Positive Integer from Expression 

ABD5 GETPINT 

ABD5 20E0AB JSR GETINT 

ABD8 GETPI0 

ABD8 A5D5 LDA FR0+1 

ABDA 3001 "ABDD BMI sGPIERR 

ABDC 60 RTS 

ABDD 4C32B9 :GPIERR JMP ERRLN 


GETINT — Get Integer from Expression 


ABE0 20E0AA 
ABE 3 

ABE3 20F2AB 
ABE6 4C56AD 


GETINT JSR EXEXPR 
GTINTO 

JSR ARGPOP 

JMP CVFPI 


; BACKWARDS 


; STACK OVERFLOW 


? GO CONVERT FR0 TO INT & 
RETURN 


GET1INT — Get One-Byte Integer from Expression 

ABE9 GET1INT 

ABE9 20D5AB JSR GETPINT 

ABEC D001 "ABEF BNE :ERV1 

ABEE 60 RTS 

ABEF :ERV1 

ABEF 203AB9 JSR ERVAL 

ARGPOP — Pop Argument Stack Entry to FRO or FR1 


ABF2 

ABF2 A5AA 
ABF4 C6AA 
ABF6 

ABF6 +0A 
ABF 7 

ABF7 +0A 
ABF8 

ABF8 +0A 
ABF9 A8 
ABFA 88 
ABFB A207 

ABFD B180 
ABFF 95D2 
AC0I 88 

AC03 10F8 "ABFD 
AC05 60 


LDA ARSLVL 


AS LA 


LDX #7 


:APOP0 LDA 



[ARGOPS], 
VTYPE, X 


GET INT <32768 

IF NOT 1 BYTE, THEN ERROR 


GET ARG STACK LEVEL 
DEC AS LEVEL 


Y = START OF NEXT ENTRY 
MINUS ONE 


E ARG ENTRY 


BACKWARDS 


ARGP2 — Pop TOS to FR1JOS-1 to FRO 


AC06 20F2AB 
AC09 20B6DD 
AC0C 4CF2AB 


ARGP2 JSR ARGPOP 
JSR MV0TO1 

JMP ARGPOP 


RETURN 


POP1 -Get a Value in FRO 


- EVALUATE EXPRESSION IN S 


AC0F 20E0AA 
AC12 20F2AB 
AC15 60 




EXEXPR 

ARGPOP 


EVALUATE EXPRESSION 
PUSH INTO FR0 
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AC5F EE 
AC60 EE 
AC61 EE 
AC62 EE 
AC63 EE 
AC64 DD 
AC65 DD 
AC66 F2 
AC67 F2 
AC68 F2 
AC69 F2 
AC 6 A F2 
AC6B 43 


AC6D F2 

AC6F F2 
AC70 F2 
AC71 F2 
AC72 F2 
AC73 F2 
AC74 F2 
AC75 F2 
AC76 F2 
AC77 F2 
AC78 F2 
AC79 F2 
AC 7A F2 
AC7B F2 

AC7D F2 
AC7E F2 
AC7F F2 
AC80 F2 
AC81 F2 
AC82 F2 
AC83 F2 


DB 

DB 

DB 

DB 


$F1 

$F1 

$EE 


$F2 

$43 


$F2 

$F2 

$F2 


$F2 

$F2 


CRPRN 

CAASN 

CSASN 

CSLE 

CSNE 

CSLT 

CSGT 

CSEQ 

CUPLUS 

CUMINUS 

CSLPRN 

CALPRN 

CDLPRN 

CFLPRN 


; FUNCTIONS 


Miscellaneous Operators 


Miscellaneous Operators' Executors 


AC84 

AC84 2006AC 
AC87 203BAD 
AC8A 4CBAAB 
AC8D 

AC8D 2006AC 
AC90 2041AD 
AC93 4CBAAB 
AC96 







ARGP2 

FRADD 

ARGPUSH 

FRSUB 

ARGPUSH 


AC96 2006AC 
AC99 2047AD 
AC9C 4CBAAB 


JSR ARGP2 

JSR FRMUL 

JMP ARGPUSH 


AC9F 

AC9F 2006AC 
ACA2 204DAD 
ACA5 4CBAAB 

ACA8 20F2AB 
ACAB A5D4 
ACAD 4980 
ACAF 85D4 
ACB1 4CBAAB 
ACB4 


XPDIV 

JSR ARGP2 

JSR FRDIV 

JMP ARGPUSH 

XPUMINUS 

JSR ARGPOP 

LDA FR0 

EOR #$80 

STA FR0 


JMP ARGPUSH 
XPUPLUS 


rGET ARGUMENT I 


?FLIP SIGN BIT 
;RETURN BYTE WITH SIGN 




CHANGED 
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ACB5 XPLE 

ACB5 XPSLE 

ACB5 2026AD JSR XCMP 

ACB8 304B ~AD05 BMI XTRUE 

AC BA F049 ~AD05 BEQ XTRUE 

ACBC 1042 ~AD00 BPL XFALSE 

ACBE XPNE 

ACBE XPSNE 

ACBE 2026AD JSR XCMP 

ACC1 F03D ~AD00 BEQ XFALSE 

ACC3 D040 ~AD05 BNE XTRUE 

ACC5 XPLT 

ACC5 XPSLT 

ACC5 2026AD JSR XCMP 

ACC8 303B “AD05 BMI XTRUE 

ACCA 1034 *AD00 BPL XFALSE 

ACCC XPGT 

ACCC XPSGT 

ACCC 2026AD JSR XCMP 

ACCF 302F *AD00 BMI XFALSE 

ACD1 F02D ~AD00 BEQ XFALSE 

ACD3 1030 *AD05 BPL XTRUE 

ACD5 XPGE 

ACD5 XPSGE 

ACD5 2026AD JSR XCMP 

ACD8 3026 ~AD00 BMI XFALSE 

ACDA 1029 ~AD05 BPL XTRUE 

ACDC XPEQ 

ACDC XPSEQ 

ACDC 2026AD JSR XCMP 

ACDF F024 ~AD05 BEQ XTRUE 

ACE1 D01D *AD00 BNE XFALSE 

ACE3 XPAND 

ACE3 2006AC JSR ARGP2 

ACE6 A5D4 LDA FR0 

ACE8 25E0 AND FR1 

ACEA F014 "AD00 BEQ XFALSE 

ACEC D017 ~AD05 BNE XTRUE 

ACEE XPOR 

ACEE 2006AC JSR ARGP2 

ACF1 A5D4 LDA FR0 

ACF3 05E0 ORA FR1 

ACF5 F009 ~AD00 BEQ XFALSE 

ACF7 D00C ~AD05 BNE XTRUE 

ACF9 XPNOT 

ACF9 20F2AB JSR ARGPOP 

ACFC A5D4 LDA FR0 

ACFE F005 ~AD05 BEQ XTRUE 

; FALL THROUGH TO XFALSE 


AD00 A900 
AD02 A8 

AD03 F004 a AD09 


AD05 



AD07 A001 



AD0F A004 
AD11 2048DA 
AD14 85D2 
AD16 

AD16 4CBAAB 


XTRUE 


#0 


FR0 

#FR0+2 
#FPREC—2 

VTYPE 

ARGPUSH 


POINT TO PART TO CLEAR 
GET # OF BYTES TO CLEAR 
CLEAR REST OF FR0 
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XPSGN — Sign Function 


ADI9 XPSGN 

AD19 20F2AB JSR 

AD1C A5D4 LDA 

AD1E F0F6 ~AD16 BEQ 

AD20 10E3 *AD05 BPL 

AD22 A9C0 LDA 

AD24 30E1 *AD07 BMI 


XCMP — Compare Executor 


AD26 XCMP 

AD26 A4A9 LDY 

AD28 88 DEY 

AD29 B180 LDA 

AD2B C92F CMP 

AD2D 9003 a AD32 BCC 

AD2F 4C81AF JMP 

AD32 2006AC FRCMPP 


ARGPOP 
FR0 
XPUSH 
XT RUE 
#$C0 


OPSTKX 

[ARGSTK] t Y 
#CSLE 
FRCMPP 
STRCMP 


GET MINUS EXPONENT 


GET OPERATOR THAT 


IF OP WAS ARITHMETIC 
THEN DO FP REG COMP 
ELSE DO STRING COMPARE 


FRCMP — Compare Two Floating Point Numbers 




FRl CONTAIN FLOATING POINT #'S 


CC = - FR0 < FRl 
CC = 0 FRE0 = FRl 


AD35 FRCMP 

AD35 2041AD JSR FRSUB 


; SUBTRACT FRl FROM FR0 


AD38 A5D4 
AD3A 60 


FR0 


GET FR0 EXPONENT 
RETURN WITH CC SET 


FRADD — Floating Point Add 


AD3B FRADD 

AD3B 2066DA JSR 

AD3E B013 *AD53 BCS 

AD40 60 RTS 


DOES NOT RETURN 




FRSUB - Floating Point Subtract 


* DOES NOT RETURN 


ERROR 


FRMUL — Floating Point Multiply 


AD47 20DBDA 


*AD53 BCS 


FRDIV — Floating Point Divide 




ERROR 
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AD53 202AB9 


CVFPI — Convert Floating Point to Integer 


XPAASN — Arithmetic Assignment Operator 


XPACOM — Array Comma Oper 


XPRPRN — Right Parenthesis Operator 


XPDLPRN — DIM Left Parenthesis Operator 
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XPALPRN — Array Left Parenthesis Operator 


AD86 

AD88 1006 * 

AD8A A5AA 
AD8C 85AF 
AD8E C6AA 

AD90 A900 
AD92 A8 
AD93 C5B0 


ARSLVL 

ATEMP 

ARSLVL 


7 IF NOT ASSIGN 
7 THE BRANCH 
ELSE 

; SAVE STACK LEVEL 
;OF THE VALUE ASSIGNMENT 
7 AND PSEUDO POP IT 


AD97 C6B0 
AD99 20E3AB 
AD9C A5D5 
AD9E 3023 ~ADC3 


COMCNT 
GTINTO 
FR0+1 
:ALPER 


; ELSE POP 12 AND MAB 
7 ERROR IF > 32,767 


ADA6 20E3AB 


ADB8 5005 ‘“‘ADBF 
ADBC 85B1 


ZTEMP1 
FR0+1 
:ALPER 
ZTEMP1+1 


;SET 12 VALUE 


TO ZTEMP1 


E ARRAY ENTRY 


ADBF 66D2 
ADC1 B003 a ADC6 
ADC3 202EB9 


ADD2 B0EF *ADC3 


ADD6 C5D9 


ADE2 205DAF 
ADE5 A597 
ADE7 A498 
ADE9 2052AF 
ADEC 2046AF 
A5D4 


ADF1 


ALPER 
: ALP4 


2052AF 


: ALP4 

R ERRDIM 


ZTEMP1+1 
VTYPE+EVAD1+1 
s ALP5 
:ALPER 
ZTEMP1 
VTYPE+EVAD1 
:ALPER 

\ INDEX2+1 

VTYPE+EVAD2+1 
: ALP6 
sALPERR 

VTYPE+EVAD2 


VTYPE+EVAADR 

VTYPE+EVAADR+1 


; IF ARRAY HAS BEEN 
7 DIMED THEN CONTINUE 
7 ELSE DIM ERROR 


7 IN RANGE WIT 
; DIM1 


; ZTEMP1 = ZTEMP1 + ADR 
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ADF8 A48D 
ADFA 2052AP 



LDY 

JSR 


ARGPOP 


ZTEMP1 NOW POINTS 
TO ELEMENT REQD 
; IF NOT ASSIGN 
; THEN CONTINUE 

ELSE ASSIGN 
;RESTORE ARG LEVEL 
? TO VALUE AND 
? POP VALUE 



AE12 C8 
AE13 84B1 
AE15 60 


AE16 

AE18 

AE1A 



A005 

B1F5 

99D400 


#5 

FR0, Y 
CZTEMP1],Y 


STY ADFLAG 


: ALP8 LDY #5 

: ALP9 LDA [ZTEMP1],Y 



? MOVE VALUE 
; TO ELEMENT SPACE 




ELEMENT TO 


AE20 C8 
AE21 84D2 
AE23 4CBAAB 


VTYPE 

ARGPUSH ; PUSH FR0 BACK TO STACK 

AND RETURN 


XPSLPRN — String Left Parenthesis 

AE26 XPSLPRN 

AE26 A5B0 LDA CO 

AE28 F007 *AE31 BEQ sX 


AE2A 2096AE 
AE2D 8498 
AE2F 8597 

AE31 2096AE 
AE34 38 
AE35 E901 

AE39 98 
AE3C 85F6 
AE3E 20F2AB 

AE43 100B ~AE50 
AE45 05B0 
AE47 85B1 
AE49 A4D9 
AE4B A5D8 
AE4D 4C54AE 


:XSPV 

INDEX2+1 

INDEX2 


ARGPOP 


ADFLAG 

:XSLP3 

COMCNT 

ADFLAG 

VTYPE+EVSDIM+1 

VTYPE+EVSDIM 


POP INDEX 1 

ADD DECREMENT BY ONE 

AND PUT INTO ZTEMP1 


INDEX 2 LIMIT 


AE54 A6B0 
AE56 F010 *AE68 
AE58 C6B0 
AE5A C498 
AE5C 9035 ~AE93 


AE62 902F *AE93 


« COMCNT 

COMCNT 
INDEX2+1 
:XSLER 
s XSLP5 
INDEX2 


r INDEX 2 LIMIT 
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iXSLP6 SEC 


AE6D 

AE6E 

AE6F 

AE71 

AE73 

AE75 

AE76 

AE78 

AE79 


AE7B 209BAB 


D003 ~AE7B 


A5D4 

65F5 

85D4 

A5D5 

65F6 

85D5 


; LENGTH IS 
? LIMIT - INDEX I 


ZTEMP1+1 
VTYPE+EVSLEN+1 
:XSLER 

R GSTRAD 


VTYPE+EVSADR 

ZTEMP1 

VTYPE+EVSADR 

VTYPE+EVSADR+1 

ZTEMP1+1 

VTYPE+EVSADR+1 


AE7E 
AE7F 
AE81 
AE83 
AE85 
AE87 
AE89 

AE8B 24B1 BIT ADFLAG j II 

AE8D 1001 a AE90 BPL :XSLP8 ; TI 

AE8F 60 RTS j El 

AE90 4CBAAB :XSLP8 JMP ARGPUSH ; PI 

AE93 2036B9 :XSLER JSR ERRSSL 

XSPV — Pop Index Value as Integer and Insure Not Zero 


JOT ASSIGN 
5 RETURN TO ASSIGN 
i ARG AND RETURN 


AE96 20E3AB 
AE99 A5D4 
AE9B A4D5 
AE9D D003 "AEA2 
AE9F AA 
AEA0 F0F1 ~AE93 


JSR GTINTO 

LDA FR0 

LDY FR0+1 

sXSPVl BNE :XS PVR 

TAX 

BEQ :XSLER 


GO GET THE INTEGER 
GET VALUE HI 


XSAASN — String Assign Operator 



AEAE A5D6 
AEB0 85A2 
AEB2 A4D7 
AEB4 84A3 


XSAASN 

JSR AAPSTR 

RISASN 

LDA VTYPE+EVSADR 

LDA VTYPE+EVSADR+1 

STA MVFA+1 

LDA VTYPE+EVSLEN 

LDY VTYPE+EVSLEN+1 

STY MVLNG+1 


POP STR WITH ABS ADR 


MVLNG = LENGTH 


AEB8 C0FF 



AEC3 

AEC5 

AEC7 

AEC9 


85B1 

200BAB 

A5D7 

A4D6 

26B1 

B007 ~AE 


CPY 

BEQ 


OPSTKX ; IF AT TOP OF 

#$FF ; OP STACK 


#$80 

ADFLAG 

EXOPOP 

VTYPE+EVSLEN+1 

VTYPE+EVSLEN 

ADFLAG 

:XSA2A 


SET ASSIGN BIT 
IN ASSIGN/DIM FLAG 
AND PROCESS SUBSTRING 

DEST LEN 
TURN OFF ASSIGN 
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AECB 2098AB 


AECE A5D9 
AED0 A4D8 


C5A3 

9006 "AEDC 
D008 ~AEE0 

B004 ~AEE0 

85A3 

84 A 2 


AEE0 18 
AEE1 A5D4 
AEE3 65A2 
AEE5 A8 
AEE6 A5D5 



AEF1 

AEF2 


38 

98 

E58C 

85F9 


XSA1 JSR AAPSTR ; POP STR WITH ABS ADR 

XSA2 LDA VTYPE+EVSDIM+1 ; A,Y = DEST LENGTH 

LDY VTYPE+EVSDIM 


MVLNG+1 
: XSA3 


IF DEST LENGTH 
LESS THAN MOVE LENGTH 



SEC 

TYA 

SBC STARP 

STA ZTEMP3 

TXA 

SBC STARP+1 

STA ZTEMP3+1 


END ADR MINUS 
START OF STRING 
SPACE IS DISPL 
TO END OF STRING 
WHICH WE SAVE 
IN ZTEMP3 


AEF6 38 
AEF7 A900 
AEF9 E5A2 
AEFB 85A2 



AF02 8599 
AF04 A59A 
AF06 E900 
AF08 859A 

AF0A 38 
AF0B A5D4 
AF0D E5A2 
AF0F 859B 
AF11 A5D5 
AF13 E900 
AF15 859C 



#0 


SET MOVE LENGTH LOW 
= $100 - MVL [L] 




BECAUSE OF THE WAY 
FMOVE WORKS 


MVLNG 

MVFA 

MVFA+1 


ADJUST MVFA TO 
CONFORM WITH MVL 
CHANGE 


MVFA+1 


VTYPE+EVSADR 

MVLNG 

VTYPE+EVSADR+1 

#0 

MVTA+1 


STRING ADR TO 


MAKE IT CONFORM 


AF17 2047A9 


JSR FMOVER 


;GO DO THE V 


AF1F 38 
AF20 A5F9 
AF22 E5D4 
AF24 A8 
AF25 A5FA 
AF27 E5D5 



GO GET ORIGNAL DEST 
STRING 


ZTEMP3 

VTYPE+EVSADR 

ZTEMP3+1 

VTYPE+EVSADR+1 


DISPL TO END OF 
MOVE MINUS DISPL 
TO START OF STRING 
IS OUR RESULT LENGTH 


AF2A A902 
AF2C 25B1 
AF2E F00F ~AF3F 
AF30 A900 


IF THE DESTINATION 
LENGTH WAS IMPLICT 
SET NEW LENGTH 
CLEAR 
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AF32 85B1 


ADFLAG 


AF34 E4D7 CPX 
AF36 9006 a AF3E BCC 
AF38 0005 a AF3F BNE 


AF3C B001 A AF3F BCS 

AF3E 60 :XSA6 


VTYPE+EVSLEN+1 

VTYPE+EVSLEN 


GREATER THAN 
OLD LENGTH THEN 
SET NEW LENGTH 
ELSE DO NOTHING 


AF3F 84D6 
AF41 86D7 
AF43 4C16AC 


:XSA5 STY VTYPE+EVSLEN 

STX VTYPE+EVSLEN+1 

JMP RTNVAR 


AMUL2 - Integer Multiplication of ZTEMP1 by 6 



AF48 26F6 
AF4A A4F6 
AF4C A5F5 
AF4E 06F5 
AF50 26F6 


ASL ZTEMP1 

ROL ZTEMP1+1 

LDY ZTEMP1+1 

LDA ZTEMP1 

ASL ZTEMP1 

ROL ZTEMP1+1 


AADD — Integer Addition of [A,Y] to ZTEMP1 


ZTEMPl = ZTEMP1*2 
SAVE ZTEMPl*2 IN [A,Y] 
ZTEMPl = ZTEMPl*4 


AF52 

AF53 


AF57 

AF58 

AF5A 


65F6 

85F6 



; ADD LOW ORDER 


D HIGH ORDER 


AMUL — Integer Multiplication of ZTEMPl by DIM2 

AF5D AMUL1 



STRCMP — String Compare 

AF81 STRCMP 

AF81 2098AB JSR 

AF84 20B6DD JSR 

AF87 2098AB JSR 


AAPSTR 

MV0TO1 

AAPSTR 


CLEAR PARTIAL PRODUCT 


SET FOR 16 BITS 

GET MULTIPLICAN 
TEST MSB = ON 


ADD MULTIPLIER 

? TO PARTIAL PRODUCT 


MULT PRODUCT 


TEST MORE BITS 



POP STRING WITH ABS ADR 

MOVE B TO FR1 

POP STRING WITH ABS ADR 
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AF8C 20BCAF 
AF8F 08 
AF90 A2E2 
AF92 20BCAF 
AF95 F013 "AFAA 
AF97 28 

AF98 F00D ~AFA7 


R0-2+EVSLEN 


s SCLT ; BR STR A LEN = 0 

#0 ? COMPARE A BYTE 

[FR0-2+EVSADR],Y ; OF STRING A 
[FR1-2+EVSADR],Y ; TO STRING B 


7 IF STR A LEN NOT 


AFAE E6D4 
AFB0 D002 "AFB4 
AFB2 E6D5 
AFB4 E6E0 
AFB6 D0D2 ~AF8A 


FR0-2+EVSADR 


FR1-1+EVSADR 


ZPADEC — Decrement a Zero-Page Double Word 


AFBC 

AFBC B500 
AFBE D006 "AFC 6 
AFC0 B501 
AFC2 F005 "AFC9 

AFC 4. D601 

AFC6 D600 
AFC8 A8 


sZPADl DEC 
TAY 

:ZPADR RTS 


? DEC HIGH BYTE 
7 DEC LOW BYTE 
7 SET NE COND CODE 
? RETURN 


Functions 


XPLEN — Length Function 

AFCA XPLEN 

AFCA 2098AB JSR 


AFCF A4D7 LDY 

AFDI XPIFP 

AFD1 85D4 STA 

AFD3 84D5 STY 

AFD5 20AAD9 XPIFP1 

AFD8 XPIFP2 

AFD8 A900 ' LDA 

AFDA 85D2 STA 

AFDC 85D3 STA 

AFDE 4CBAAB JMP 

XPPEEK — PEEK Function 


AFEl XPPEEK 

AFE1 20E3AB JSR 


AFE6 B1D4 LDA 

AFE8 4CD1AF JMP 


AAPSTR ? POP STRING WITH ABS ADR 

VTYPE+EVSLEN ; MOVE LENGTH 

VTYPE+EVSLEN+1 




7 AND CONVERT TO FP 


VTYPE ; TYPE AND 

VNUM ; NUMBER 

ARGPUSH 7 PUSH TO STACK AND RETURN 


GTINTO 

#0 

[FR0],Y 

XPIFP 


GET INT ARG 

GET MEM BYTE 
GO PUSH AS FP 
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XPFRE - FRE Function 


AFEB 20F2AB 
AFEE 38 
AFEF ADE502 
AFF2 E590 
AFF4 85D4 
AFF6 ADE602 
AFF9 E591 
AFFB 85D5 
AFFD 4CD5AF 


JSR ARGPOP 


LDA HIMEM 

SBC MEMTOP 

STA FR0 

LDA HIMEM+1 

SBC MEMTOP+1 

STA FR0+1 

JMP XPIFP1 


POP DUMMY ARG 

NO FREE BYTES 
= HIMEM-MEMTOP 




XPVAL — VAL Function 

B000 XPVAL 

B000 2079BD JSR 

B003 A900 ’ LDA 

B005 85F2 STA 

B007 2000D8 JSR 

Restore Character 

B00A 2099BD JSR 

B00D 90C9 *AFD8 * BCC 


SETSEOL 


#0 

CIX 

CVAFP 


RSTSEOL 




GET NUMERIC TERMINATOR 
SET INDEX INTO BUFFER = 0 
CONVERT TO F.P. 


RESET END OF STR 


B00F 201CB9 JSR ERSVAL 

XPASC — ASC Function 


B012 XPASC 

B012 2098AB JSR 

Get 1>T Byte of String 

B015 A000 LDY 

B017 B1D4 LDA 

B019 4CD1AF JMP 


AAPSTR ; GET STRING ELEMENT 

#0 ; GET INDEX TO 1ST BYTE 

[FR0-2+EVSADR],Y ; GET BYTE 


B01C XPADR 

B01C 2098AB JSR 

B01F 4CD5AF JMP 


AAPSTR ;GET STRING 

XPIFP1 ; FINISH 


XPPDL — Function Paddle 

B022 XPPDL 

B022 A900 LDA #0 

XPSTICK - Function Joystick 

B026 XPSTICK 

B026 A908 LDA #8 

B028 D006 *B030 BNE :GRF 


XPPTRIG — Function Paddle Trigger 

B02A XPPTRIG 

B02A A90C LDA #$0C ; GET DISPL FROM BASE ADDR 

B02C D002 “‘B030 BNE :GRF 

XPSTRIG — Function Joystick Trigger 

B02E XPSTRIG 

B02E A914 LDA #$14 ; GET DISP FROM BASE ADDR 
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B030 

B030 48 

B031 20E3AB 
B034 A5D5 
B036 D00E ~B046 
B038 A5D4 

B03A 68 
B03B 18 
B03C 65D4 
B03E AA 


GTINTO 
FR0+1 
:ERGRF 




; GET INTEGER FROM STACK 
7 HIGH ORDER BYTE 
7 SHOULD BE =0 
7 GET # 


D MORE DISPL 


B03F BD7002 
B042 A000 

B044 F08B ~AFD1 


LDA GRFBAS,X 

LDY #0 

BEQ XPIFP 


GET VALUE 

GO CONVERT & PUSH ON STACK 


B046 

B046 203AB9 


: ERGRF 

JSR ERVAL 


XPSTR - STR Function 

B049 XPSTR 

B049 20F2AB JSR 

B04C 20E6D8 ' JSR 


Build String Element 


B04F A5F3 LDA 
B051 85D4 STA 
B053 A5F4 LDA 
B055 85D5 STA 


Get Length 

B057 A0FF 
B059 

B059 C8 
B05A B1F3 
B05C 10FB ~B059 
B05E 297F 
B060 91F3 

B062 C8 



B063 84D6 


STY 


B065 D017 ~B07E 


XPCHR - CHR Function 


B067 XPCHR 

B067 20F2AB JSR 

B06A 2056AD ' JSR 

B06D A5D4 LDA 

B06F 8DC005 STA 

Build String Element 

B072 A905 LDA 

B074 85D5 STA 

B076 A9C0 LDA 

B078 85D4 STA 

B07A A901 * LDA 

B07G 85D6 STA 

B07E :CHR 

B07E A900 LDA 

B080 85D7 STA 


ARGPOP 


GET VALUE IN FR0 




CONVERT TO ASCII 


FR0-2+EVSADR ? 

INBUFF+1 

FR0-1+EVSADR 


#$FF 


INIT FOR LENGTH COUNTER 


[INBUFF],Y 
:XSTR1 
#$7F 

[INBUFF],Y 


BUMP COUNT 


IS MSB NOT ON, REPEAT 


RETURNS CHAR TO BUFFER 
INC TO GET LENGTH 


FR0-2+EVSLEN 


LENGTH LOW 




7 JOIN CHR FUNCTION 


ARGPOP 

CVFPI 

FR0 

LBUFF+$40 


r GET VALUE I 


7 CONVERT TO INTEGER 
7 GET INTEGER LOW 


#(LBUFF+$40)/256 
FR0-1+EVSADR 
#(LBUFF+$40)&255 
FR0-2+EVSADR j 


SET ADDR 


FR0-2+EVSLEN 


LENGTH LOW 


#0 7 SET LENGTH HIGH 

FR0-1+EVSLEN ; X 
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B082 85D3 STA 

B084 A983 LDA 

B086 8502 STA 

B088 4CBAAB ’ JMP 

XPRND-RND Function 

B08B XPRND 

B08B A2A8 LDX 

B08D A0B0 LDY 

B08F 2098DD JSR 

B092 20F2AB JSR 

B095 AC0AD2 * LDY 

B098 84D4 STY 

B09A AC0AD2 LDY 

B09D 84D5 STY 

B09F 20AAD9 JSR 

B0A2 204DAD JSR 

B0A5 4CBAAB * JMP 


VNUM 7 CLEAR VARIABLE # 

#EVSTR+EVS DTA+EVDIM ? GET TYPE FLAGS 
VTYPE ? SET VARIABLE TYPE 

ARGPUSH ; PUSH ON STACK 


#RNDDIV&255 7 POINT TO 65535 

#RNDDIV/256 7 X 

FLD1R ;MOVE IT TO FR1 


ARGPOP 


7 CLEAR DUMMY A 


RNDLOC 

RNDLOC 

FR0+I 

CVIFP 

FRDIV 


; GET 2 BYTE RANDOM # 

; x 

7 CONVERT TO INTEGER 
7DO DIVIDE 


ARGPUSH 


PUT ON STACK 




4206553600 RNDDIV DB 
00 


$42,$06,§55,§36,0,0 


XPABS — Absolute Value Function 


B0AE XPABS 

B0AE 20F2AB JSR 

B0B1 A5D4 LDA 

B0B3 297F AND 

B0B5 85D4 STA 

B0B7 4CBAAB JMP 


#$7F 

ARGPUSH 


7GET ARGUMENT 
7GET BYTE WITH SIGN 
7AND OUT SIGN 

7 PUSH ON STACK 


XPUSR - USR Function 


B0BA XPUSR 

B0BA 20C3B0 JSR 

B0BD 20AAD9 JSR 

B0C0 4CBAAB JMP 


B0C3 

B0C3 A5B0 
B0C5 85C6 


COMCNT 

ZTEMP2 


B0C7 

B0C7 20E3AB 
B0CA C6C6 
B0CC 3009 "B0D7 

B0CE A5D4 
B0D0 48 
B0D1 A5D5 
B0D3 48 
B0D4 4CC7B0 
B0D7 



B0DA 6CD400 



JMP 


GTINTO 

ZTEMP2 





XPINT — Integer Function 

B0DD XPINT 

B0DD 20F2AB JSR 

B0E0 20E6B0 JSR 

B0E3 4CBAAB JMP 




ARGPUSH 


PUT RETURN ADDR IN CPU STACK 
CONVERT FR0 TO FP 
PUSH ON STACK 


7GET COMMA COUNT 
7SET AS # OF ARG FOR LOOP 
CONTROL 


7 GET AN INTEGER FROM OP STACK 
7 DECR # OF ARGUMENTS 


7GET ARGUMENT LOW 
7 PUSH ON STACK 
7GET ARGUMENT HIGH 
7 PUSH ON STACK 
7GET NEXT ARGUMENT 

7GET # OF ARGUMENTS 
•GO TO USER ROUTINE 


7 GET NUMBER 
7 GET INTEGER 
7 PUSH ON ARGUMENT STACK 
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XINT - Take Integer Part of FRO 


B0E8 297F AND 
B0EA 38 SEC 
B0EB E93F SBC 


B0ED 1002 *B0F1 
B0EF A900 

B0F1 

B0F1 AA 
B0F2 A900 
B0F4 A8 
B0F5 

B0F5 E005 
B0F7 B007 “B100 
B0F9 15D5 

B0FD E8 

B0FE D0F5 ~B0F5 
B100 

B100 A6D4 
B102 1014 *B118 

B104 AA 


BPL 


B105 F011 ~B118 BEQ 


B107 A2E0 LDX 

B109 2046DA JSR 

B10C A9C0 LDA 

B10E 85E0 STA 

B110 A901 LDA 

B112 85E1 STA 

B114 203BAD JSR 

B117 60 RTS 

B118 :XINT4 

B118 4C00DC JMP 


#$7F 

#$3F 






IS NEGATIVE 
#FR1 


#$C0 

FR1 

#1 

FR1+1 

FRADD 




GET EXPONENT 


GET LOCATION OF 1ST FRACTION 
BYTE 

IF > OR = 0, THEN BRANCH 
ELSE SET =0 


PUT IN X AS INDEX INTO FR0 
SET ACCUM TO ZERO FOR ORING 


IS D.P. LOC > OF = 5? 
IF YES, LOOP DONE 
OR IN THE BYTE 
ZERO BYTE 
POINT TO NEXT BYTE 
UNCONDITIONAL BRANCH 


IF ALL BYTES WERE 


BRANCH 

A WHOLE # [ADD -1] 

ZERO FR1 
PUT -1 IN FR1 



GO NORMALIZE 


Transcendental Functions 


XPSIN —Sine Function 


BUB 

B11E 

B121 

B123 


XPSIN 

20F2AB JSR 
20A7BD JSR 
B03F A B162 BCS 
903A *B15F BCC 


XPCOS — Cosine Function 

B125 XPCOS 

B128 20B1BD JSR 

B12B B035 *B162 BCS 

B12D 9030 "B15F BCC 


XPATN — Arc Tangent Function 

B12F XPATN 

B12F 20F2AB JSR 

B132 2077BE JSR 

B135 B02B ~B162 BCS 

B137 9026 A B15F BCC 


ARGPOP 

SIN 


:TGOOD 


ARGPOP 


:TGOOD 


ARGPOP 


iTGOOD 


r ARGUMENT 
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XPLOC - LOG Function 

B139 XPLOG 

B139 20F2AB JSR 

B13C 20CDDE JSR 

B13F B021 *B162 BCS 

B141 901C *B15F BCC 

XP4.J0 “ LOG Base 10 

B143 XPL10 

B143 20F2AB JSR 

B146 20D1DE JSR 

B149 B017 *B162 BCS 

B14B 9012 *B15F BCC 

XPEXP - EXP Function 

B14D XPEXP 

B14D 20F2AB JSR 

B150 20C0DD JSR 

B153 B00D ~B162 BCS 

B155 9008 a B15F BCC 

XPSQR — Square Root Function 

B157 XPSQR 

B157 20F2AB JSR 

B15A 20E5BE JSR 

B15D B003 '"B162 BCS 




XPPOWER — Exponential Operator [A**B] 


B165 XPPOWER 

B165 2006AC JSR 

B168 A5D4 LDA 

B16A D00B *B177 BNE 

B16C A5E0 LDA 

B16E F004 A B174 BEQ 

B170 10ED "B15F BPL 

B172 30EE *B162 BMI 

B174 :P0 

B174 4C05AD JMP 

B177 :N0 


B177 1030 *B1A9 


:SPEVEN 


B179 297F 

B17B 85D4 

B17D A5E0 
B17F 297F 
B181 38 

B182 E940 

B184 30DC ~B162 

B186 A206 

B188 C905 

B18A 9004 ~B190 
B18C A001 
B18E D008 "B198 




BCC 

LDY 

BNE 


#$7F 

FR0 


B190 85F5 


ZTEMP1 



? IF BASE + THEN NO SPECIAL 
PROCESS 

; SET AS BASE EXPONENT 

7 GET EXPONENT OF POWER 
; AND OUT SIGN BIT 

7 IS POWER <1? 

7 IF YES, ERROR 


7 GET INDEX TO LAST DIGIT 

7 IF # CAN HAVE DECIMAL 
7 PORTION, THEN BR 
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NTER 

GO TEST EVEN/ODD 
OF EXPONENT 
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XDIM & XCOM - Execute DIM and COMMON Statements 


B1D9 

B1D9 A4A8 
B1DB C4A7 
B1DD 9001 ~B1E0 
B1DF 60 
B1E0 20E0AA 
B1E3 A5D2 
B1E5 

B1E5 +6A 

B1E6 9003 "B1EB 
B1E8 202EB9 

B1EB 38 
B1EC 

B1EC +2A 

B1ED 85D2 

B1EF 302F "B220 


; STATEMENT END 
; THEN CONTINUE 
; RETURN 


\ EXECUTE EXPR 

NOT YET DIMMED 


B1F5 C8 
B1F6 D003 A 
B1F8 E8 
B1F9 30ED A 
B1FB 84D6 
B1FD 86D7 


B203 

B207 


A698 
D003 A 


B20B 30DB A B1E8 
B20D 84D8 
B20F 86D9 


X VTYPE+EVAD1 
VTYPE+EVAD1+1 
ZTEMP1 j 

ZTEMP1+1 j 


s DCERR 

X VTYPE+EVAD2 
VTYPE+EVAD2+1 


INDEX 1 FOR MULT 


ZTEMP1+1 
:DCERR 
:DCEXP 


7 ZTEMP1 = ZTEMP1*D2 
; ZTEMP1 = ZTEMP1*6 

RESULT IS AN ARRAY 
SPACE REQD 
? A,Y = LENGTH 


r CURRENT LENGTH =0 


B22C 85D9 
B22E D004 A B234 
B230 C000 

B232 F0B4 A B1E8 


ZTEMP1 

VTYPE+EVSDIM 

ZTEMP1+1 


B234 A28E 
B236 2081A8 


7 GO EXPAND 


ST & ARRAY 
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B239 38 

B23A A597 
B23C E58C 
B23E 85D4 
B240 A598 

B242 E58D 
B244 85D5 


SEC 

LDA SVESA 7 CALCULATE DISPL INTO 

SBC STARP 7 ST/ARRAY SPACE 

STA VTYPE+EVSADR ; AND PUT INTO VALUE BOX 

LDA SVESA+1 

SBC STARP+1 

STA VTYPE+EVSADR+1 


B246 2016AC 

B249 4CD9B1 


JSR RTNVAR 

JMP sDCl 


R VALUE TABLE 


XPOKE - Execute POKE 


B24C XPOKE 

B24C 20E0AB JSR 

B24F A5D4 LDA 

B251 8595 STA 

B253 A5D5 LDA 

B255 8596 STA 


GETINT 
FR0 

POKADR 

FR0+1 

POKADR+1 


B257 20E9AB 

B25A A5D4 
B25C A000 
B25E 9195 


JSR GET1INT 


LDY #0 

STA [POKADR],Y 


; GET INTEGER TO POKE 


XDEC — Execute DEG 

B261 XI 

B261 A906 



#DEGON 


DEGREES FLAG 

FOR TRANSCENDENTALS 


XRAD - Execute RAD 

B266 XRAD 

B266 A900 LDA #RADON 

B268 85FB STA RADFLG 

B26A 60 RTS 


XREST - Execute RESTORE Statement 


B26B A900 
B26D 85B6 


#0 

DATAD 


B26F 2010B9 
B272 9003 ~B277 


JSR TSTEND 

BCC :XR1 



GET RADIAN FLAG 

SET FOR TRANSCENDENTALS 




TEST END OF STMT 
BR IF NOT END 
RESTORE TO LN=0 


LOAD LINE NO. 


XREAD — Execute READ Statement 


B283 XREAD 

B283 A5A8 LDA STINDEX 

B285 48 PHA 

B286 20C7B6 JSR XGS 


STINDEX 

READ STMT VIA GOSUB 


B28B 85A0 
B28D A5B8 
B28F 85A1 


DATALN 

TSLNUM 

DATALN+1 

TSLNUM+1 


DATALN TO TSLNUM 
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B3D6 20E0AA JSR EXEXPR ; GO EVALUATE EXPRESSION 

B3D9 20F2AB JSR ARGPOP ; POP FINAL VALUE 

B3DC C6A8 DEC STINDEX 7 DEC STINDEX 

B3DE 24D2 BIT VTYPE ; IS THIS A STRING 

B3E0 3016 ~B3F8 BMI sXPSTR ; BR IF STRING 

B3E2 20E6D8 * JSR CVFASC 7 CONVERT TO ASCII 



B3E9 A4F2 :XPR1 LDY CIX 7 OUTPUT ASCII CHARACTERS 
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B461 4C9FBA JMP PRCHAR 


XLPRINT — Print to Printer 


B464 


B466 85F3 

B468 A9B4 
B46A 85F4 



B470 A900 

B472 A008 

B474 20D1BB 
B477 20B3BC 

B47A 20B6B3 
B47D 4CF1BC 



JSR 


JMP 


#PSTR&255 

INBUFF 

#PSTR/256 

INBUFF+1 


SOPEN 

IOTEST 

XPRINT 

CLSYS1 


B480 50 PSTR DB 'P' 

B481 3A9B DB ':',CR 


r OPEN TYPE 


TEST FOR ERROR 

CLOSE DEVICE 


XLIST — Execute LIST Command 


B483 A000 

B485 84A0 

B487 84A1 


B48A 84AD 
B48C A97F 
B48E 85AE 
B490 8DFE02 
B493 A99B 
B495 209FBA 


B498 20C7B6 

B49B 

B49B A4A8 



B4A2 A5A8 
B4A4 48 
B4A5 200FAC 

B4A9 85A8 
B4AB A5D2 
B4AD 1006 "B4B5 
B4AF 20D5BA 
B4B2 4C9BB4 

B4B5 

B4B5 20D5AB 


B4BE A4A8 
B4C0 C4A7 
B4C2 F003 *B4C7 


XLIST 


STY 

DEY 


STA 

STA 


STA 


JMP 



TSLNUM 

TSLNUM+1 

LELNUM 

#$7F 

LELNUM+1 

$2FE 

PRCHAR 


STINDEX 

NXTSTD 
:LSTART 

STINDEX 


STINDEX 
VTYPE 
: XL1 
FLIST 


GETPINT 

TSLNUM+1 

TSLNUM 

STINDEX 
NXTSTD 
: LSE 


r TABLE SEARCH L 


; SET NON-DISPLAY MODE 


; SAVE CURLINE VIA GOSUB 


; BR IF AT, NO PARMS 


; SAVE STINDEX 
; ON STACK 

; POP FIRST ARGUMENT 
; RESTORE STINDEX TO 


; BR IF NOT FILE SPEC STRING 
? GO OPEN FILE 

; GO BACK TO AS IF FIRST PARM 


0 GET START L 


; MOVE START LNO 
;TO TSLNUM 

;GET STMT INDEX 
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B4C4 20D5AB 


B4C7 A5D4 
B4C9 85AD 
B4CB A5D5 
B4CD 85AE 



LDA FR0+1 

STA LELNUM+1 




IF LIST DEVICE 
IS ZERO, BR 
ELSE CLOSE DEVICE 

DEVICE TO ZERO 

SET DISPLAY MODE 
THEN RESTORE LIST LINE 
AND RETURN 


LSCAN — Scan a Table for LIST Token 


B50C 

B50C 86AA 
B50E 2030B5 

B511 A4AA 


B515 300E *B525 

B517 B195 

B519 3003 *B51E 

B51B C8 

B51C D0F9 ~B517 
B51E C8 
B51F 2025B5 
B522 4C11B5 


ENTRY PARMS 

X = SKIP LENGTH 

SCANT = TOKEN 


STX SRCSKP 

LSC0 LDY SRCSKP 


STA 


:LSINC 

[SRCADR],Y 
: LSC2 


:LSINC 
: LSC0 


SRCADR 

SRCADR 


y SAVE SKIP LENGTH 
y SAVE SRC ADR 

; GET SKIP FACTOR 
y DECREMENT SRC COUNT 


y GET CHARACTER 
y BR IF LAST CHARACTER 
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B52C A596 
B52E 6900 


SRCADR+1 


B530 

B532 


LPRTOKEN - Print a Token 


B535 

B535 A0FF 
B537 84AF 


LPRTOKEN 
:LPRTOKEN 


STY SCANT 



B53D B195 

B53F 48 

B540 C99B 

B542 F004 "B548 

B544 297F 

B546 F003 a B54B 

B548 

B548 209FBA 
B54B 

B54B 68 

B54C 10EB ~B539 








SCANT 

SCANT 

[SRCADR],Y 
#CR 

:LPT1A 
#$7F 
: LPT2 

PRCHAR 




LPTWB — Print Token with Blank Before and After 


B54F 

B54F A920 
B551 209FBA 
B554 2035B5 

B557 A920 

B559 4C9FBA 



; STORE NEW SRCADR 
; RETURN 


; INITIALIZE I 


INC INDEX 
GET INDEX 
GET TOKEN CHAR 

IF ATARI CR 
THEN DON'T AND 
TURN OFF MSB 
BR IF NON-PRINTING 

GO PRINT CHAR 



LLINE — List a Line 


B55C 

B55C 

B55C A000 
B55E B18A 
B560 85D4 

B562 C8 
B563 B18A 
B565 85D5 

B567 20AAD9 
B56A 20E6D8 
B56D A5F3 
B56F 8595 



B575 2054B5 


sLLINE 

LDY #0 

LDA [STMCUR],Y 

STA FR0 


LDA [STMCUR],Y 

STA FR0+1 

JSR CVFASC 

LDA INBUFF 

STA SRCADR 

LDA INBUFF+1 

STA SRCADR+1 


CONVERT TO FP 
CONVERT TO ASCII 
MOVE INBUFF ADR 
TO SRCADR 


B578 

B578 A002 

B57A B18A 
B57C 859F 
B57E C8 
B57F B18A 
B581 85A7 

B583 C8 


B586 2090B5 


LDLINE 

LDY #2 

LDA [STMCUR],Y 

STA LLNGTH 

:LL1 LDA [STMCUR],Y 

STA NXTSTD 

I NY 

STY STINDEX 

JSR :LSTMT 


; GET LINE LENGTH 
; AND SAVE 

7 GET STMT LENGTH 
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B589 A4A7 
B58B C49F 
B58D 90F0 ~B57F 
B58F 60 


LDY NXTSTD 

CPY LLNGTH 


RTS 


LSTMT — List a Statement 


B590 :LSTMT 

B590 2031B6 JSR 

B593 C936 CMP 

B595 F017 a B5AE BEQ 

B597 203DB6 JSR 


:LGCT 

#CILET 

:LADV 

LSTMC 


GET CURRENT TOKEN 
IF IMP LET 
BR 


B59A 2031B6 
B59D C937 
B59F F004 "B5A5 
B5A1 C902 
B5A3 B009 ~B5AE 


GO GET CURRENT TOKEN 
BR IF ERROR STMT 


B5A5 202FB6 :LDR JSR :LGNT 

B5A8 209FBA JSR PRCHAR 

B5AB 4CA5B5 JMP :LDR 


OUTPUT DATA/REM 
THEN PRINT THE CR 


B5AE 202FB6 :LADV JSR :LGNT 

B5B1 101A *B5CD BPL :LNVAR 


B5B3 297F AND 

B5B5 85AF STA 

B5B7 A200 LDX 

B5B9 A583 LDA 

B5BB A482 LDY 

B5BD 200CB5 JSR 

B5C0 2035B5 :LS1 

B5C3 C9A8 CMP 

B5C5 D0E7 a B5AE BNE 

B5C7 202FB6 JSR 

B5CA 4CAEB5 JMP 


#$7F 

SCANT 

VNTP+1 


:LSCAN 

:LPRTOKEN 

#$A8 


AND SET AS SCAN COUNT 



NAME END IN LPAREN 


TOKEN 


B5CD :LNVAR 

B5CD C90F CMP 

B5CF F018 *'B5E9 BEQ 


TOKEN: $0F 

BR IF 0F , STR CONST 


B5D1 B036 ~B609 ' BCS 

B5D3 204DAB ’ JSR 

B5D6 C6A8 DEC 

B5D8 20E6D8 JSR 

B5DB A5F3 LDA 

B5DD 8595 STA 

B5DF A5F4 LDA 

B5E1 8596 STA 

B5E3 2035B5 :LSX 

B5E6 4CAEB5 JMP 


NCTOFR0 

STINDEX 

CVFASC 

INBUFF 

SRCADR 

INBUFF+1 

SRCADR+1 

:LPRTOKEN 
: LADV 


BR IF TOKEN >$0F 

ELSE IT'S NUM CONST 
GO MOVE FR0 

CONVERT FR0 TO ASCII 
POINT SCRADR 
TO INBUFF WHERE 


GO PRINT NUMBER 
GO FOR NEXT TOKEN 


B5E9 

B5EC 

B5F0 

B5F3 

B5F5 


202FB6 

85AF 

A922 

209FBA 



WHICH IS STR LENGTH 
PRINT DOUBLE QUOTE CHAR 


B5F7 202FB6 :LS2 JSR :LGNT 

B5FA 209FBA JSR PRCHAR 

B5FD C6AF DEC SCANT 

B5FF D0F6 ~B5F7 BNE :LS2 


OUTPUT STR CONST 
CHAR BY CHAR 
UNTIL COUNT =0 


B601 A922 

B603 209FBA 
B606 4CAEB5 


THEN OUTPUT CLOSING 
DOUBLE QUOTE 
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B609 38 

B60A E910 

B60E A200 
B610 A9A7 
B612 A0E3 
B614 200CB5 

B617 2031B6 

B61A C93D 
B61C B0C5 ~B5E3 
B61E A000 
B620 B195 

B622 297P 

B624 20F7A3 

B627 B0BA "B5E3 
B629 204FB5 

B62C 4CAEB5 


#$10 

SCANT 


LDA 

LDY 


#OPNTAB/256 
#OPNTAB&255 
:LSCAN 
sLGCT 
#CFFUN 


BCS 

LDY 


JSR 


#0 

[SRCADR],Y 

#$7F 

TSTALPH 


B62F 

B62F E6A8 
B631 A4A8 
B633 C4A7 
B635 B003 

B637 B18A 
B639 60 


sLGNT 

INC STINDEX 

sLGCT LDY STINDEX 
CPY NXTSTD 

LDA [STMCUR],Y 


B63A 68 
B63B 68 
B63C 60 


RTS 


85AF 


B641 A9A4 
B643 A0AF 
B645 200CB5 

B648 4C54B5 


LSTMC 

STA SCANT 

LDX #2 

LDA #SNTAB/256 

LDY ISNTAB&255 

JSR :LSCAN 


XFOR — Execute FOR 


SUBSTRACT THE 10 
SET FOR SCAN COUNT 



SET INSCAN COUNT 
AND 

STATEMENT NAME TABLE 
GO LIST WITH FOLLOWING BLANK 


B64B 

B64B 

B64B 208AB8 
20E0AA 
A5D3 
0980 
48 

2025B8 


LOCAL 

JSR 

JSR 


ORA 


:SAVDEX 
EXEXPR 

#$80 


JSR FIXRSTK 


SAVE STINDEX 
DO ASSIGNMENT 
GET VARIABLE # 

OR IN HIGH ORDER BIT 
SAVE ON CPU STACK 
FIX RUN STACK 


BUILD STACK ELEMENT 


#FBODY 
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B6AE 20A2A9 
B6B1 B005 "B6B8 
B6B3 68 
B6B4 68 
B6B5 4C5PA9 


; LINE POINTERS AND STMT 
7 IF NOT FOUND ERROR 
? CLEAN UP STACK 

7 GO TO EXECUTE CONTROL 

; RESTORE STMT CURRENT 


SAVCUR 

STMCUR 

SAVCUR+1 

STMCUR+1 


; LINE # NOT FOUND 
7 RESTORE STMCUR 


XGS - Perform GOSUB [GOSUB, LIST, READ] 

B6C7 XGS 


XNEXT- 


Execute NEXT 


B6D8 B03C ~B716 
B6DA F03A *B716 
B6DC C5C7 
B6DE D0F5 *B6D5 


STINDEX 
[STMCUR ],Y 
ZTEMP2+1 


:ERNFOR 
:ERNFOR 
ZTEMP2+1 


r STMT INDEX 
r GOSUB TYPE 


7 PULL ELEMENT FROM RUN STACK 
VAR#/TYPE RETURN IN A 
7 IF AT TOP OF STACK, ERROR 
7 IF TYPE = GOSUB, ERROR 
7 DOES STKVAR# = OUR VAR # 


GET VARIABLE VALUE 


GET NEW VALUE 


r VARIABLE VALUE 
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XEND — Execute END 

B78D XEND 

B78D 20A7B7 JSR STOP 

B790 4C50A0 JMP SNX1 

XSTOP — Execute STOP 


B796 206EBD 
B799 A9B6 
B79B 8595 
B79D A9B7 
B79F 8596 

B7A1 2035B5 
B7A4 4C74B9 


PRINT MESSAGE 


#:MSTOP&255 
SRCADR 
#:MSTOP/256 
SRCADR+1 

LPRTOKEN 
:ERRM2 


B7A7 STOP 

B7A7 20E2A9 JSR 

B7AA 3007 ~B7B3 BMI 


TENDST 
:STOPEND 


85BA 

4C72BD 


B7B6 53544F5050 
4544A0 


sMSTOP 


XCONT — Execute Continue 


B7BE XCONT 

B7BE 20E2A9 JSR 

B7C1 10F0 "B7B3 BPL 

B7C3 A5BA LDA 


'STOPPED 


TENDST 
:STOPEND 
STOPLN 


B7C5 85A0 
B7C7 A5BB 
B7C9 85A1 


STA TSLNUM 

LDA STOPLN+1 

STA TSLNUM+1 


B7CB 20A2A9 


GETSTMT 


B7CE 20E2A9 
B7D1 30A2 '“B775 
B7D3 20DDA9 
B7D6 20D0A9 
B7D9 20E2A9 


JSR TENDST 

BMI :RUNEND 

JSR TENDST 


B7DC 3097 ~B775 BMI 

B7DE 4C1BB8 JMP 

XTRAP - Execute TRAP 

B7E1 20E0AB JSR 


:RUNEND 


GETINT 


B7E4 A5D4 
B7E6 85BC 
B7E8 A5D5 
B7EA 85BD 
B7EC 60 


TRAPLN 

TRAPLN+1 


; PRINT CR 

; SET POINTER FOR MESSAGE 

; PRINT IT 

; PRINT REST OF MESSAGE 



r L/D DEVICE =0 


; IS IT INDIRECT STMT? 

7 SET STOP LINE # AS LINE # 
FOR GET 



; CONVERT LINE # TO POSITIVE 

; SAVE LINE # LOW AS TRAP LINE 
; IN CASE OF LATER ERROR 
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XON —Execute ON 

B7ED XON 

B7ED 208AB8 JSR 

B7F0 20E9AB JSR 

B7F3 A5D4 LDA 

B7F5 F020 A B817 BEQ 


B7F7 A4A8 LDY 
B7F9 88 DEY 
B7FA B18A LDA 
B7FC C917 CMP 
B7FE F003 ~B803 BEQ 


B800 20CAB6 JSR 


B803 :GO 

B803 A5D4 LDA 

B805 85B3 STA 

B807 :ONl 

B807 20D5AB JSR 

B80A C6B3 DEC 

B80C F006 "B814 BEQ 

B80E 2010B9 JSR 

B811 90F4 ~B807 BCC 

B813 60 RTS 

B814 :ON2 

B814 4CA6B6 JMP 


B817 :ERV 

B817 60 RTS 


STINDEX 

[STMCUR],Y 

#CGTO 




ONLOOP 


GETPINT 

ONLOOP 




,* GET 1 BYTE INTEGER 

; IF ZERO, FALL THROUGH TO 
NEXT STMT 

; GET STMT INDEX 
7 BACK UP TO GOSUB/GOTO 
7 GET CODE 
7 IS IT GOTO? 

7 IF YES, DON'T PUSH ON 
RUN STACK 


PUT ELEMENT ON RUN STACK 

7 PUT ELEMENT ON RUN STACK 
; FOR RETURN 


7 GET INDEX INTO EXPRESSIONS 
7 SAVE FOR LOOP CONTROL 


GET + INTEGER 

IS THIS THE LINE # WE WANT? 
IF YES, GO DO IT 

ARE THERE MORE EXPRESSIONS 
IF YES, THEN EVAL NEXT ONE 
ELSE FALL THROUGH TO 


Execution Control Statement Subroutines 
SETUNE - Set Up Line Pointers 


ON ENTRY TLSNUM - LINE # 


STMCUR - CONTAIN PROPER VALUES 
LLNGTH - X 
NXTSTM - X 

CARRY SET BY GETSTMT IF LINE # 


FOUND 


B818 SETLINE 

B818 20A2A9 JSR GETSTMT 


B81B 

B81B A002 
B81D B18A 
B81F 859F 


SETLN1 

LDY #2 

LDA [STMCUR],Y 

STA LLNGTH 


NXTSTD 


7 GET STMCUR 


7 GET DISP IN LINE TO LENGTH 

7 GET LINE LENGTH 

7 SET LINE LENGTH 

7 POINT TO NEXT STMT DISPL 

7 SET NXT STMT DISPL 


FIXRSTK - Fix Run Stack - Remove Old FORs 


ON ENTRY A - VARIABLE # IN CURRENT FOR 
ON EXIT RUNSTK CLEAR OF ALL FOR'S 
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B825 FIXRSTK 

B825 85C7 STA ZTEMP2+1 ; SAVE VAR # OF THIS FOR 


B827 2081B8 


:SAVRTOP 


ZTEMP1 


B82A 2041B8 
B82D B008 *B837 
B82F F006 ~B837 
B831 C5C7 
B833 F00B ~B840 
B835 D0F3 ~B82A 


B837 



B840 60 


POPRSTK 

:TOP 

ZTEMP2+1 
:FNVAR 
: FIXR 


POP AN ELEMENT FROM RUNSTK 
IF AT TOP - WE ARE DONE 
IF CC = 08 ELEMENT WAS GOSUB 
IS STK VAR # = OUR VAR #? 

ELSE LOOK AT NEXT ELEMENT 


FOR VAR # NOT ON STACK ABOVE TOP OR GOSUB 
[RESTORE TOP OF STACK] 


TEMPA 

TOPRSTK 

TEMPA+1 

TOPRSTK+1 


RESTORE TOPRSTK 




POPRSTK — Pop Element from Run Stack 


A - TYPE OF ELEMENT OR VAR # 

X - DISPL INTO LINE OF FOR/GOSUB TOKEN 
CUSET - CARRY SET STACK WAS EMPTY 
CARRY CLEAR - ENTRY POPED 
EQ SET - ELEMENT IS GOSUB 
TSLNUM - LINE # 


B841 A58F 
B843 C591 

B845 9008 ~B84F 

B847 A58E 
B849 C590 

B84B 9002 ~B84F 

B84D 38 


TEST FOR STACK EMPTY 

; GET START OF RUN STACK HIGH 

; GET START OF RUN STACK LOW 
; IS IT < TOP OF STACK LOW 
; IF YES, WE ARE NOT AT TOP 

; ELSE AT TOP: SET CARRY 
RTS ; RETURN 

GET 4 BYTE HEADER 

[COMMON TO GOSUB AND FOR] 


LDA RUNSTK+1 

CMP TOPRSTK+1 

LDA RUNSTK 

CMP TOPRSTK 

BCC :NTOP 


B84F 

B84F A904 
B851 2072B8 


LDA tGFHEAD 

JSR :RCONT 


GET LENGTH OF HEADER 
TAKE IT OFF STACK 


B854 A003 

B856 B190 

B858 85B2 

B85A 88 
B85B B190 
B85D 85A1 
B85F 88 


tGFDISP 

[TOPRSTK],Y 
SVDISP 

[TOPRSTK],Y 
TSLNUM+1 


GET INDEX TO SAVED LINE 
DISPL 

GET SAVED LINE DISPL 

POINT TO LINE # IN HEADER 
GET LINE # HIGH 
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B860 B190 LDA 
B862 85A0 STA 

B864 88 ' DEY 
B865 B190 LDA 
B867 F007 "B870 BEQ 


B869 48 PHA 
B86A A90C LDA 
B86C 2072B8 JSR 
B86F 68 PLA 



B871 60 RTS 


:RCONT — Contract Run Stack 


[TOPRSTK], ’ 
TSLNUM 

[TOPRSTK], i 

12 BYTE FO 

#FBODY 
:RCONT 


ON ENTRY A - 



; POINT TO TYPE 
; GET TYPE 

7 IF TYPE = GOSUB, SET ELEMENT 


GET # BYTES T 


7 CLEAR CARRY [ENTRY POPPED] 


BYTES TO SUBTRACT 


B872 

B872 A8 
B873 A290 

B875 4CFBA8 


:RCONT 


LDX #TOPRSTK 

JMP CONTLOW 




:REXPAN - Expand Run Stack 


B878 :REXPAN 
B878 2081B8 JSR 
B87B A8 TAY 
B87C A290 LDX 
B87E 4C7FA8 JMP 



:SAVRTOP - Save Top of Run Stack in ZTEMP1 




B883 86C4 

B885 A691 

B887 86C5 

B889 60 


: SAVRTOP 





TOPRSTK 

TEMPA 

TOPRSTK+1 

TEMPA+1 


:SAVDEX — Save Line Displacement 


TOPRSTK 


B88A 

B88A A4A8 
B88C 84B3 


:MV6RS — Move 6-Byte Value to Run Stack 


X - LOCATION TO MOVE 
Y- DISPL FROM ZTEMP1 
ZTEMP1 - LOCATION OF 



RUN STK 


B88F A906 
B891 85C6 

B893 

B893 B500 

B895 91C4 

B897 E8 
B898 C8 
B899 C6C6 
B89B D0F6 ~B893 
B89D 60 


#6 

ZTEMP2 


POINT TO NEXT 
POINT TO NEXT 
DEC COUNTER 


LOCATION 


228 









Source Code 


:PL6RS — Pull 6 Bytes from Run Stack to FR1 

* ON ENTRY Y = DISPL FROM TOPRSTK TO MOVE FROM 

* TOPRSTK - START OF ELEMENT 


B89E 

B89E A906 
B8A0 85C6 
B8A2 A2E0 

B8A4 B190 
B8A6 9500 
B8A8 E8 
B8A9 C8 
B8AA C6C6 
B8AC D0F6 ~B8A4 
B8AE 60 




I NY 
DEC 
BNE 


ZTEMP2 
: PL 


GET # OF BYTES TO MOVE 
SAVE AS COUNTER 


GET A BYTE 

INC TO NEXT LOCATION 
INC TO NEXT BYTE 
DEC COUNTER 
IF NOT =0, DO AGAIN 


RSTPTR - Reset Stack Pointers [STARP and RUNSTK] 


B8AF RSTPTR 

B8AF A58C LDA 


B8B1 858E STA 


B8B5 850E STA 

B8B7 A58D LDA 


B8B9 858F STA 
B8BB 8591 STA 
B8BD 850F STA 
B8BF 60 RTS 


ZVAR - Zero Variable 

B8C0 A686 * LDX 

B8C2 86F5 STX 

B8C4 A487 LDY 

B8C6 84F6 STY 


STARP 

RUNSTK 

MEMTOP 

STARP+1 

RUNSTK+1 

MEMTOP+1 


ZTEMP1+I 


GET BASE OF STR/ARRAY 

SET APPLICATION HIMEM 
GET BASE STR/ARRAY SPACE 
HIGH 
RESET 

SET APPLICATION HIMEM 


MOVE VARIABLE TABLE POINTER 


B8D0 

B8D2 

B8D4 


*B8D5 

"B8D5 


B8D7 

B8D9 

B8DB 

B8DD 

B8DF 


ZTEMP1+1 
ENDWT+1 
:ZVAR2 
ZTEMP1 
ENDWT 


[ZTEMP1],Y 
#$FE 

[ZTEMP1],Y 


7 GET NEXT VARIABLE ADDR 
; IS IT < END VALUE HIGH 
; IF YES, MORE TO DO 
; GET NEXT VARIABLE ADDR 
; IS IT < END VALUE LOW 

• ELSE, DONE 


r INDEX PAST VARIABLE HEADER 
? GET # OF BYTES TO ZERO 
r CLEAR A 


B8E7 D0FA ~B8E3 


[ZTEMP1],Y 
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B8E9 A5F5 

B8EB 18 
B8EC 6908 
B8EE 85F5 


LDA ZTEMP1 

CLC 

ADC #8 

STA ZTEMP1 


GET CURRENT VARIABLE 
POINTER LOW 


INCR TO NEXT VARIABLE 
SAVE NEW VARIABLE POINTER 


B8F0 A5F6 

B8F2 6900 
B8F4 85F6 


ZTEMP1+1 


7 GET CURRENT VARIABLE 
POINTER HIGH 
7 ADD IN CARRY 
; SAVE NEW VARIABLE POINTER 


B8F6 D0D0 ~B8C8 BNE :ZVAR1 


UNCONDITIONAL BRANCH 


RUNINIT — Initialize Storage Locations for RUN 


B8F8 A000 
B8FA 84BA 
B8FC 84BB 
B8FE 84B9 
B900 84FB 
B902 84B6 

B904 84B7 

B906 84B8 


RUNINIT 

LDY #0 

STY STOPLN 

STY STOPLN+1 

STY ERRNUM 

STY RADFLG 

STY DATAD 

STY DATALN 

STY DATALN+1 


B909 84BD 
B90B 8411 
B90D 4C41BD 


STY TRAPLN+1 

STY BRKBYT 

JMP CLSALL 


7 CLEAR LINE # STOPPED AT 
7 CLEAR ERROR # 

7CLEAR FLAG TOR TRANSENDENTALS 
7CLEAR DATA POINTERS 


7 SET TRAP FLAG TO NO TRAP 
7 SET BRK BYTE OFF [$FF] 

7 GO CLOSE ALL DEVICES 


TSTEND — Test for End of Statement 


B910 

B910 A6A8 
B912 E8 
B913 E4A7 
B915 60 


STINDEX 


NXTSTD 


Error Message Routine 


Error Messages 

B916 E6B9 
B918 E6B9 
B91A E6B9 

B91E E6B9 
B920 E6B9 
B922 E6B9 
B924 E6B9 
B926 E6B9 
B928 E6B9 
B92A E6B9 
B92C E6B9 
B92E E6B9 
B930 E6B9 
B932 E6B9 
B934 E6B9 



B93A E6B9 
B93C E6B9 
B93E E6B9 


ERRNSF 

ERRDNO 

ERRPTL 

ERSVAL 

ERBRTN 

ERGFDE 

ERNOFOR 

ERNOLN 

EROVFL 

ERRAOS 

ERRDIM 

ERRINP 

ERRLN 

ERROOD 

ERRSSL 

ERRVSF 

MEMFULL 


ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 

ERRNUM 


7 FILE NOT SAVE FILE 
7 #DN0 > 7 

7 STRING NOT VALID 
7 EXECUTION OF GARBAGE 
7 BAD RETURNS 
7 GOSUB/FOR LINE DELETED 
7 LINE TO LONG 
7 NO MATCHING FOR 
7 LINE NOT FOUND [GOSUB/GOTO] 
7 FLOATING POINT OVERFLOW 
7 ARG STACK OVERFLOW 
7 ARRAY/STRING DIM ERROR 
7 INPUT STMT ERROR 
7VALUE NOT <32768 

7 STRING LENGTH ERROR 
7 VARIABLE TABLE FULL 
7 VALUE ERROR 
7 MEMORY FULL 
7 NO LINE # FOR EXP IN ON 
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B942 

B948 


85A1 

A5BC 


B952 

B954 

B956 

B958 

B95A 

B95C 

B95E 


85BD 

A5B9 

85C3 

A900 

85B9 

4CAEB6 


I PRINT MESSAGE 


D SPECIFIED L 


TSLNUM+1 

TRAPLN 

TSLNUM 

#$80 

TRAPLN+1 

ERRNUM 

ERRSAV 

#0 

ERRNUM 


GET ERROR # 
SAVE IT 
CLEAR 
ERROR# 


P - PRINT ERROR MESSAGE 


Print Error Message Part 1 [**ERR] 

B961 206EBD JSR P 

B964 A937 LDA #< 

B966 203DB6 JSR L, 

Print Error Number 


B96F 85D5 
B971 209CB9 


) PRINT CODE 


; GET ERROR # 
; SET ERROR # 
; SET ERROR # 


? FR0 AS INTEGER 


} PRINT ERROR # 


Print Message Part 2 [AT LINE] 


B979 

B97B 

B97D 


B981 

Print 


8595 
A9B9 

8596 

2035B5 

Line Number 

A001 


B98F 209CB9 


#:ERRMS&2 55 
SRCADR 
#:ERRMS/256 
SRCADR+1 

LPRTOKEN 


; SET POINTER TO M 


ET DISPL 

r LINE # HIGH 

ET IN FR0 FOR CONVERT 

ET CURRENT LINE # LOW 

r UNUSED LINE # LOW 

ET IN FR0 LOW FOR CONVERT 
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B992 206EBD 
B995 A900 

B997 85B9 

B999 4C60A0 


PRCR 


ERRNUM 

SYNTAX 


PRINT CR 
CLEAR A 
CLEAR ERROR # 


Print Integer Number in FRO 

B99C :PRINUM 

B99C 20AAD9 JSR 

B99F 20E6D8 JSR 


CVIFP 

CVFASC 


CONVERT TO FLOATING POINT 
CONVERT TO ASCII 


B9A2 A5F3 
B9A4 8595 
B9A6 A5F4 
B9A8 8596 
B9AA 2035B5 
B9AD 60 


STA SRCADR 

LDA INBUFF+1 

STA SRCADR+1 

JSR LPRTOKEN 



B9AE 204154204C 
494E45A0 


Execute Graphics Routines 


XSETCOLOR - Execute SET COLOR 


B9B7 

B9B7 

B9BA 

B9BE 

B9C0 


XSETCOLOR 

20E9AB JSR 
A5D4 LDA 
C905 CMP 
B01A ~B9DA BCS 
48 PHA 


B9C4 A5D4 

B9C6 +0A 
B9C7 

B9C7 +0A 
B9C8 

B9C8 +0A 
B9C9 

B9C9 +0A 
B9CA 48 
B9CB 20E0AB 
B9CE 68 
B9CF 18 
B9D0 65D4 
B9D2 A8 
B9D3 68 
B9D4 AA 
B9D5 98 

B9D6 9DC402 
B9D9 60 


B9DA 

B9DA 203AB9 


AS LA 



: ERCOL 


XSOUND — Execute SOUND 

B9DD XSOUND 

B9DD 20E9AB JSR 

B9E0 A5D4 LDA 

B9E2 C904 CMP 

B9E4 B0F4 ~B9DA BCS 


GETINT 

CREGS,X 




:ERSND 


7 GET REGISTER # 
? IS IT <5? 




GET VALUE*1 



; GET 1 BYTE INTEGER 

7 IF NOT, ERROR 
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B9F2 20E0AB JSR GETINT ? GET EXP2 
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#ICDRAW ; GET COMMAND 

#6 ; SET DEVICE 

GLPCX ; SET THEM 


BA40 A90C 
BA42 9D4A03 
BA45 A900 
BA47 9D4B03 
BA4A 2024BD 
BA4D 4CB3BC 


LDA #$0C ; SET AUX 1 

STA ICAUX1,X 


STA ICAUX2,X 

JSR 107 

JMP IOTEST 


XGR - Execute GRAPHICS 


BA50 

BA50 A206 
BA52 86C1 
BA54 20F1BC 
BA57 20E0AB 


A5D4 

29F0 


BA6A A8 
BA6B A5D4 
BA6D 20D1BB 
BA70 4CB3BC 


GETINT 

#SSTR&255 

#SSTR/256 

INBUFF 

INBUFF+1 


7 GET INTEGER INTO FR0 

; SET INBUFF TO POINT 
; TO FILE SPEC STRING 


r GET DEVICE # 

7 SET SOME BITS FOR GRAPHICS 


; GET AUX2 [GRAPHICS TYPE] 
TEST I/O OK 


XPLOT — Execute PLOT 

BA76 XPLOT 

BA76 2016BA JSR 

BA79 A5C8 * LDA 

BA7B A206 LDX 




SET X,Y POSITION 

GET COLOR 
GET DEVICE # 

GO PRINT IT 


Input/Output Routines 

BA80 LOCAL 


GETLINE - Get a Line of Input 


BA80 

BA80 A6B4 
BA82 D00E *BA92 
BA84 A99B 
BA86 209FBA 

BA89 


BA8B D005 *BA92 
BA8D A5C2 
BA8F 209FBA 


GNLINE - GET NEW 


ENTDTD 


PUTCHAR 


ENTDTD 

PROMPT 

PUTCHAR 


ENTDTD 

#ICGTR 


[PROMPT ONLY] 

LINE [CR, PROMPT] 


? IF ENTER DEVICE NOT ZERO 
; THEN DON'T PROMPT 
? PUT PROMPT 
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BA96 20C4BA 
BA99 200ABD 
BA9C 4CB3BC 


JSR GLPCX 

JSR 101 

JMP IOTEST 


GO DO I/O 
GO TEST RESULT 


PUTCHAR 

BA9F 


- Put One Character to List Device 


BAAl 48 
BAA2 20C6BA 

BAA5 BD4A03 
BAA8 852A 
BAAA BD4B03 
BAAD 852B 

BAAF 68 
BAB0 AS 
BAB1 20B8BA 


BAB4 98 

BAB5 4CB6BC 



ICAUX1,X 

ICAUX1-IOCB+ZICB 
ICAUX2,X 

ICAUX2-I0CB+ZICB 



: PDUM 


; RETURN HERE 

TYA 

JMP I0TES2 


FROM ROUTINE 

? TEST STATUS 


BAB 8 

BAB8 BD4703 

BABB 48 
BABC BD4603 
BABF 48 
BAC0 98 
BAC1 A092 
BAC3 60 


ICPUT+1,X 
ICPUT,X 

#$92 


BAC4 85C0 GLPCX 

BAC6 GLPX 

BAC6 86C1 STX 

BAC8 4CA6BC JMP 


IOCMD 

IODVC 

LDDVX 


GO TO PUT ROUTINE 

X 

X 

LOAD VALUE FOR CIO ROUTINE 


XENTER - Execute ENTER 


BACB 

BACB A904 
BACD 20DDBA 
BAD0 85B4 
BAD2 4C60A0 


XENTER 

LDA 


JMP 


FUST-Open LIST File 

BAD5 FLIST 

BAD5 A908 LDA 

BAD7 20DDBA JSR 

BADA 85B5 STA 

BADC 60 RTS 

BADD ELADVC 


ELADVC 
ENTDTD 


ELADVC 

LISTDTD 





; SET ENTER DEVICE 


OPEN OUTPUT 
GO OPEN ALT DEVICE 
SET LIST DEVICE 


;BEFORE 

;G0 CLOSE DEVICE 
;OPEN OF NEW ONE 


BAF1 20FBBB 
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BAF4 A907 


XLOAD — Execute LOAD Command 

BAFB XLOAD 


BAFE A904 
BB00 20DDBA 
BB03 68 


SAVE R/L TYPE 
GO OPEN FOR INPUT 
THE SPECIFIED DEVICE 


BB09 85CA 

BB0B 20A6BC 
BB0E A00E 
BB10 2010BD 
BB13 20B3BC 
BB16 AD8005 
BB19 0D8105 
BB1C D038 *BB56 

BB1E A28C 


#ICGTC 

IOCMD 

LOADFLG 


MISCRAM+OUTBUFF ; 
MISCRAM+OUTBUFF+1 


SET LOAD IN PROGRESS 

LOAD DEVICE X REG 
r Y=REC LENGTH 
GO GET TABLE BLOCK 
TEST I/O 
IF FIRST 2 
7 BYTES NOT ZERO 

; START AT STARP DISPL 


BB2C CDE602 
BB2F 900A ~BB3B 
BB31 D005 ~BB38 
BB33 CCE502 
BB36 9003 
BB38 4C1AB9 

BB3B 9501 
BB3F CA 


; IF NEW VALUE NOT 
7 LESS THEN HIMEM 


TABLE VALUE 
D PREVIOUS TBL 


BB45 2088BB 
BB48 2066B7 
BB4B A900 
BB4D 85CA 
BB4F 68 

BB50 F001 "BB53 

BB52 60 

BB53 

BB53 4C50A0 


#VNTP 

:LSBLK 

LOADFLG 


7 LOAD R/S STATUS 
7 BR IF LOAD 
7 RETURN TO RUN 

7GO TO SYNTAX 
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XSAVE — Execute SAVE Command 


BB5D XSAVE 

BB5D A908 LDA #08 

BB5F 20DDBA JSR ELADVC 


GO OPEN FOR OUTPUT 
THE SPECIFIED DEVICE 


BB62 

BB62 A90B 
BB64 85C0 


XSAVE1 

LDA #ICPTC 


I/O CMD IS PUT TEXT CHARS 
SET I/O CMD 


BB66 A280 


LDX 


#OUTBUFF 


BB69 B500 
BB6B E580 
BB6D 9D0005 
BB70 E8 


LDA 0,X 

SBC OUTBUFF 

STA MISCRAM,X 


MOVE RAM TABLE PTRS 
[OUTBUFF THRU ENSTAR] 

AS DISPLACEMENT 


BB73 

BB75 

BB78 

BB79 


E581 

9D0005 

E8 

E08E 
90EB ~ 




OUTBUFF+1 
MISCRAM,X 

#ENDSTAR 
: SV1 


BB7D 20A6BC 
BB80 A00E 
BB82 2010BD 
BB85 20B3BC 


JSR LDDVX ; OUTPUT LBUFF 

LDY #ENDSTAR-OUTBUFF ; FOR PROPER LENGTH 

JSR 103 

JSR IOTEST 7 TEST GOOD I/O 


LSBLK - LOAD or SAVE User Area as a Block 


BB88 20A6BC 
BB8B A582 
BB8D 85F3 
BB8F A583 
BB91 85F4 
BB93 AC8D05 

BB97 98 
BB98 AC8C05 
BB9B 2012BD 
BB9E 20B3BC 
BBA1 4CF1BC 


:LSBLK 


LDA 



INBUFF 

INBUFF+1 

MISCRAM+STARP+1 


LOAD DEVICE X REG 
AS START OF BLOCK ADR 


A,Y = BLOCK LENGTH 


MISCRAM+STARP 

104 ; GO DO BLOCK I/O 

IOTEST 

CLSYS1 yGO CLOSE DEVICE 


XCSAVE - Execute CSAVE 

BBA4 XCSAVE 

BBA4 A908 LDA #8 

BBA6 20B6BB JSR COPEN 

BBA9 4C62BB JMP XSAVE1 

XCLOAD - Execute CLOAD 

BBAC XCLOAD 

BBAC A904 LDA #4 

BBAE 20B6BB JSR COPEN 

BBB1 A900 LDA #0 

BBB3 4C04BB JMP XL0AD1 


; GET OPEN FOR OUTPUT 
; OPEN CASSETTE 


7 GET OPEN FOR OUTPUT 
7 OPEN CASSETTE 

7 GET LOAD TYPE 


COPEN - OPEN Cassette 


A2CE 

86F3 


ON ENTRY: A - TYPE OF OPEN [IN OR OUT] 
ON EXIT: A - DEVICE #7 




LDX #:CSTR&255 

STX INBUFF 
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BBBB A2BB 
BBBD 86F4 

BBBF A207 
BBC1 68 
BBC2 A8 
BBC3 A980 


BBC5 20D1BB 
BBC8 20B3BC 
BBCB A907 


BBCE 433A9B 



#:CSTR/256 

INBUFF+1 

#7 


#$80 

SOPEN 

IOTEST 

#7 


SET COMMAND TYPE 
GET AUX 2 




SOPEN - OPEN System Device 

* ON ENTRY X - DEVICE 

* Y - AUX1 


INBUFF - POINTS TO FILE SPEC 


BBD1 

BBD1 48 
BBD2 A903 
BBD4 20C4BA 
BBD7 68 
BBD8 9D4B03 
BBDB 98 
BBDC 9D4A03 



#ICOIO 

GLPCX 


SAVE AUX2 
GET COMMAND 
GET DEVICE/COMMAND 
SET AUX2 & AUX 1 


BBDF 2019BD 
BBE2 4C51DA 


JSR 105 

JMP INTLBF 


? DO COMMAND 
; RESET INBUFF 


XXIO — Execute XIO Statement 


BBE5 XXIO 

BBE5 2004BD JSR GIOCMD 

BBE8 4CEDBB JMP XOPl 


GET THE COMMAND BYTE 
CONTINUE AS IF OPEN 


XOPEN - Execute OPEN Statement 


BBEB 

BBEB A903 
BBED 85C0 
BBEF 209FBC 


XOPEN 

LDA #ICOIO 

XOPl STA IOCMD 

JSR GIODVC 


BBF2 

BBF5 

BBFA 



2004BD 

48 

2004BD 


JSR GIOCMD 

PHA 

JSR GIOCMD 


BBFD 48 


BBFE 20E0AA 
BC01 2079BD 


SETSEOL 


GET FS STRING 
GIVE STRING AN EOL 


BC04 20A6BC 
BC07 68 
BC08 9D4B03 
BC0B 68 
BC0C 9D4A03 
BC0F 200ABD 


STA ICAUX2,X 

PLA 

STA ICAUX1,X 

JSR 101 


BC12 2099BD 


JSR RSTSEOL 


RESTORE STRING EOL 
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BC15 2051DA JSR 

BC18 4CB3BC JMP 

XCLOSE — Execute CLOSE 


INTLBF 

IOTEST 


D TEST I/O STATUS 


BC1B XCLOSE 

BC1B A90C LDA #ICCLOSE ? CLOSE CMD 


GDVCIO - General Device I/O 


BC1D 

BC1D 85C0 
BC1F 209FBC 
BC22 2024BD 
BC25 4CB3BC 


STA IOCMD 

JSR GIODVC 

GDI01 JSR 107 

JMP IOTEST 


SET CMD 
GET DEVICE 
GO DO I/O 
GO TEST STATUS 


XSTATUS — Execute STATUS 

BC28 XSTATUS 

BC28 209FBC JSR 

BC2B A90D LDA 

BC2D 2026BD JSR 

BC30 20FBBC JSR 

BC33 4C2DBD JMP 


GIODVC 

#ICSTAT 

LDIOSTA 


GET DEVICE 
STATUS CMD 
GO GET STATUS 
LOAD STATUS 
GO SET VAR 


XNOTE - Execute NOTE 

BC36 XNOTE 

BC36 A926 LDA 

BC38 201DBC JSR 

BC3B BD4C03 LDA 

BC3E BC4D03 LDY 

BC41 202FBD JSR 

BC44 20A6BC JSR 

BC47 BD4E03 LDA 

BC4A 4C2DBD JMP 


#$26 

GDVCIO 

IS VAR 
LDDVX 
ICAUX5,X 


XPOINT - Execute POINT 

BC4D XPOINT 

BC4D 209FBC JSR 

BC50 20D5AB JSR 

BC53 20A6BC JSR 

BC56 A5D4 LDA 

BC58 9D4C03 STA 

BC5B A5D5 LDA 

BC5D 9D4D03 STA 

BC60 20D5AB JSR 

BC63 20A6BC JSR 

BC66 A5D4 LDA 

BC68 9D4E03 STA 

BC6B A925 LDA 

BC6D 85C0 STA 

BC6F 4C22BC JMP 


GIODVC 

GETPINT 

LDDVX 

FR0 

ICAUX4,X 
GETPINT 
LDDVX 

ICAUX5,X 
#$25 
IOCMD 
GDI01 


r I/O DEVICE N 
r SECTOR NO. 

r SECTOR NO. 


GET DATA LENGTH 
LOAD DEVICE X 

SET DATA LENGTH 
SET POINT CMD 


XPUT — Execute PUT 


BC7C 4CA1BA 


XGET — Execute GET 

BC7F XGET 

BC7F 209FBC JSR 

BC82 GETl 

BC82 A907 LDA 

BC84 85C0 STA 


GIODVC 
GETINT 


GIODVC 




GET DEVICE # 



LOAD DEVICE # 
GO PRINT 


GET DEVICE 


GET COMMAND 
SET COMMAND 
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BC86 A001 
BC88 2010BD 
BC8B 20B3BC 
BC8E A000 
BC90 B1F3 
BC92 4C2DBD 


103 

IOTEST 

[INBUFF],Y 
ISVAR1 


XLOCATE - Execute LOCATE 

BC95 XLOCATE 

BC95 2016BA JSR XPOS 

BC98 A206 LDX #6 

BC9A 20C6BA JSR GLPX 

BC9D D0E3 *BC82 * BNE GET1 


GIODVC — Get I/O Device Number 

BC9F GIODVC 

BC9F 2002BD JSR GIOPRM 

BCA2 85C1 STA IODVC 

BCA4 F00A ~BCB0 BEQ DNERR 


LDDVX — Load X Register with I/O Device Offset 


BCA6 

BCA6 A5C1 


BCA8 +0A 
BCA9 




AS LA 
ASL 




SET BUFF LENGTH=1 



GET X,Y POSITION 
GET DEVICE # 


GET PARM 
SET AS DEVICE 
BR IF DVC=0 


GET DEVICE 
MULT BY 16 


BCAC AA 
BCAD 3001 A BC 
BCAF 60 
BCB0 2018B9 


BMI DNERR 

DNERR JSR ERRDNO 


IOTEST-Test I/O Status 





20FBBC 
3001 ~BCB9 


BCBB 8CFE02 


BCBE C980 
BCC0 D00A ~BCCC 


BCC6 F003 *BCCB 
BCC8 4C00A0 




LDIOSTA 




DSPFLG 

IICSBRK 

BRKBYT 
LOADFLG 
: SIOS 
COLDSTART 


BCCC A4C1 
BCCE C988 



BCD4 C007 
BCD6 D003 ~BCDB 
BCD8 20F1BC 


BCDB 2072BD 
BCDE 4C40B9 




; LOAD I/O STATUS 

; ELSE RETURN 
; RESET DISPLAY FLAG 


; SIMULATE ASYNC 
; BREAK 

;IF LOAD FLAG SET 
•DO COLDSTART 


; PRE-LOAD I/O DEVICE 
; WAS ERROR EOF 
; BR IF EOF 
; SET ERROR NUMBER 

; WAS THIS DEVICE #7 
; CLOSE DEVICE 7 

; SET L/D DEVICE = 0 
; REPORT ERROR 
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BCE1 C007 
BCE3 D0ED 
BCE5 A25D 


#7 

: SI02 
#EPCHAR 


BCE7 E4C2 
BCE9 D0E7 "BCD2 
BCEB 20F1BC 
BCEE 4C53A0 


CPX PROMPT 

BNE :SI02 

JSR CLSYSD 




BR NOT ENTER 
CLOSE DEVICE 7 
GO TO SYNTAX 


CLSYSD — Close System Device 


BCFl CLSYSD 

BCF1 20A6BC CLSYS1 

BCF4 F00B ~BD01 BEQ 

BCF6 A90C LDA 

BCF8 4C26BD JMP 

LDIOSTA - Load I/O Status 


NOCD0 

fICCLOSE 

108 


DON'T CLOSE DEVICE0 
LOAD CLOSE CORD 
GO CLOSE 


BCFB LDIOSTA 

BCFB 20A6BC JSR 

BCFE BD4303 LDA 

BD01 NOCD0 

BD01 60 RTS 


LDDVX 
ICSTA,X 


GET DEVICE X REG 
GET STATUS 

RETURN 


GIOPRM — Get I/O Parameters 


BD02 E6A8 
BD04 20D5AB 
BD07 A5D4 
BD09 60 

I/O Call Routine 

BD0A A0FF 
BD0C D002 "BD10 
BD0E A000 
BD10 A900 
BD12 9D4903 

BD16 9D4803 
BD19 A5F4 
BD1B A4F3 
BD1D 9D4503 
BD20 98 
BD21 9D4403 
BD24 A5C0 
BD26 9D4203 
BD29 2056E4 
BD2C 60 



; LOAD INBUFF VALUE 


LOAD COMMAND 
SET COMMAND 
GO DO I/O 


IS VAR - I/O Variable Set 



BD2F 48 




ISVAR 

PHA 


BD31 48 PHA 

BD32 200FAC JSR P0P1 


BD38 

BD39 

BD3B 


85D5 

68 

85D4 

20AAD9 

4C16AC 



STA FR0 

JSR CVIFP 

JMP RTNVAR 


GET HIGH ORDER BYTE 

GET VARIABLE 
SET VALUE LOW 

SET VALUE HI 
CONVERT TO FP 
AND RETURN TO TABLE 


241 







Source Code 


CLSALL - CLOSE All lOCBs [except 0] 

BD41 CLSALL 

TURN OFF SOUND 


BD45 9D00D2 
BD49 D0FA "BD45 

BD4B A007 
BD4D 84C1 
BD4F 20F1BC 
BD52 C6C1 
BD54 D0F9 ~BD4F 


IODVC 

* CLSYSD 


PREADY - Print READY Message 


BD59 86F2 
BD5B BD67BD 
BD5E 209FBA 


PREADY 


= 0007 RML EC 

PRCR — Print Carriage Return 


r BR IF MORE 


CR, 'YDAER' , 
*-RMSG 


BD70 F0E7 “BD59 BEQ PRDY1 

SETDZ - Set Device 0 as LIST/ENTER Device 

BD72 A900 SETDZ LDA #0 


SETSEOL — Set an EOL [Temporarily] after a String EOL 

BD79 SETSEOL 

BD79 2098AB JSR AAPSTR 

BD7C A5D4 LDA FR0-2+EVSADR 

BD7E 85F3 STA INBUFF 

BD80 A5D5 LDA FR0-1+EVSADR 

BD82 85F4 STA INBUFF+1 


; GET STRING WITH ABS ADR 


BD88 F002 A BD8C 


C CINBUFF3 # Y 

INDEX2 
INDEX2+1 


? THEN REPLACE WITH E 
r INDICATE MODIFIED E 
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BE15 20A7DD 
BE18 20B6DD 
BE1B 20DBDA 
BEIE B085 *BDA5 



BE24 A0BE 
BE26 2040DD 

BE29 A2E6 
BE2B A005 
BE2D 2098DD 
BE30 20DBDA 
BE33 46F0 
BE35 9009 *BE40 


BE37 18 
BE38 A5D4 



BE3E 85D4 
BE40 60 


BE41 BD03551499 
39 

BE47 3E01604427 
52 

BE4D BE46817543 
55 

BE53 3F07969262 
39 

BE59 BF64596408 
67 

BE5F 4001570796 
32 

= 0006 


BE65 4090000000 
00 

BE6B 3F01745329 



SINERR 

#NSCF 

#SCOEF&$FF 
#SCOEF/$100 

#FPSCRSt$FF 

#FPSCR/$100 

FLD1R 

FMUL 

SGNFLG 

SINDON 


? EVALUATE P[X**2] 


? X-> FR1 

SIN[X] = X*P[X** 
WAS QUAD 2 OR 37 
NO - THRU 


.BYTE 

.BYTE 


iE,$01,$60,$44,$27,$52 


$3F,$07,$96,$92,$62,$ 
$BF,$64,$59,$64,$08,$ 


PIOV2 .BYTE 


-.00000354149939 
0.000160442752 
-.004681754355 
0.0796926239 
-.6459640867 
32 ;Pl/2 


.BYTE 

PIOV18 .BY 


$40,1,0,0,0,0 


BE79 

BE7B 


85F0 

85F1 


BE7F 297F 
BE81 C940 
BE83 3015 "BE9A 
BE85 A5D4 
BE87 2980 


BE8D A97F 
BE8F 25D4 
BE91 85D4 
BE93 A2EA 
BE95 A0DF 
BE97 2095DE 

BE9A A2E6 

BE9E 20A7DD 
BEA1 20B6DD 
BEA4 20DBDA 


BEA9 A90B 



ATAN[X] — Arctangent 


#$7F 

#$40 

ATAN1 

#$80 

SGNFLG 

XFMFLG 

#$7F 


ARCTAN[X] 

& TRANSFORM F 


X VS 1.0 

- USE SERIES DIRECTLY 
- SAVE SIGN & TRANSFORM 


#FP9S&$FF 

#FP9S/$100 

XFORM 

#FPSCR&$FF 

#FPSCR/$100 

FST0R 

FMOVE 

ATNOUT 

#ATCOEF&$FF 

#ATCOEF/$100 


) [X-lD/CX+1] 


244 











Source Code 




SQR[X] — Square Root 
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;[X/Y]-Y 

;0.5*[[X/Y]-Y]=DELTAY 
;DELTA 0.0 



#FSCR1&$FF 

#FSCRl/$100 


SQRCNT 

#FSCR1&$FF 

#FSCRl/$100 


?Y=Y+DELTA Y 
; COUNT & LOOP 


7 DELTA = 0 - GET Y BACK 



Floating Point 

BF99 = D800 ORG FPORG 

D800 LOCAL 

ASCIN — Convert ASCII Input to Internal Form 

* ON ENTRY INBUFF - POINTS TO BUFFER WITH ASCII 
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r MANTISSA SIGH 


D8E4 

D8E4 

D8E5 


CLC 
: IND2 


; CLEAR CARRY 


FPASC — Convert Floating Point to ASCII 

* ON ENTRY 


D8E6 

D8E6 

D8E6 


r INBUFF TO PT TO LBUFF 


\ LBUFF-1 

TEST FOR E FORMAT REQUIRED 


D8F6 

D8F8 

D8FA 


297F 

C93F 

9028 ~D920 
C945 

B024 *D920 


#$7F 

#$3F 

:EFORM 

#$45 

:EFORM 


S FORMAT REQUIRED 


D8FF 

D902 

D907 


E93F 

2070DC 

20A4DC 

9D8005 

AD8005 


#$3F 

:CVFR0 

:FNZERO 
#$80 
LBUFF,X 


r CONVERT FR0 TO ASCII CHAR 
; FIND LAST NON-ZERO CHARACTER 


IS IT DECIMAL? 
ELSE JUMP 


D91A 

D91A A9B0 
D91C 8D8005 
D91F 60 


#$80+$30 

LBUFF 


GET ASCII 0 WITH MSB = 1 
PUT IN BUFFER 


PROCESS 


FORMAT 


D920 

D920 A901 

D922 2070DC 


GET DECIMAL POSITION 
CONVERT FR0 TO ASCII IN 
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D972 :EF3 

D972 38 SEC 

D973 E90A SBC #10 


; SUBTRACT 10 
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IFP — Convert Integer to Floating Point 

* ON ENTRY PR0 - CONTAINS INTEGER 

* ON EXIT FR0 - CONTAINS FLOATING POINT # 


D9AA 

D9AA 


D9AA A5D4 
D9AC 85F8 
D9AE A5D5 
D9B0 85F7 


D9B6 A010 
D9B8 


D9BA 26F7 



MOVE INTEGER AND 


ZTEMP4+1 

FR0+1 

ZTEMP4 


0 THE CONVERT 


ZTEMP4+1 

ZTEMP4 


REVERSE BYTES 

? GET INTEGER LOW 
; SAVE AS INTEGER HIGH 
; GET INTEGER HIGH 
; SAVE AS INTEGER LOW 


; GET # BITS IN INTEGER 

; SHIFT LEFT INTEGER LOW 
? SHIFT LEFT INTEGER HIGH 


252 









Source Code 




D9BE B5D4 
D9C0 75D4 


D9C2 95D4 

D9C4 CA 

D9C5 D0F7 a D9BE 

D9C7 88 

D9C8 D0EE "D9B8 
D9CA D8 


D9CF 4C00DC 


#3 


CARRY NOW SET IF THERE WAS A 
BIT 

BIGGEST INTEGER IS 3 BYTES 


DOUBLE # AND ADD IN 1 IF CARRY SET 



FR0, X 
: IFP2 

: IFP1 


7 GET BYTE 

; DOUBLE [ADDING IN CARRY 
FROM SHIFT 

; DECREMENT COUNT OF FR0 BYTES 
; IF MORE TO DO, DO IT 

7 DECR COUNT OF INTEGER DIGITS 
; IF MORE TO DO, DO IT 
; CLEAR DECIMAL MODE 



INDICATE DECIMAL AFTER LAST 
STORE EXPONENT 


NORMALIZE 


FPI — Convert Floating Point to Integer 

* ON ENTRY FR0 - FLOATING POINT NUMBER 

* ON EXIT FR0 - INTEGER 


CC SET CARRY CLEAR - NO ERROR 
CARRY SET - ERROR 




D9D2 A900 
D9D4 85F7 
D9D6 85F8 


D9D8 A5D4 
D9DA 3066 a DA42 



D9E5 6900 
D9E7 


D9E8 85F5 


D9EA 


CLEAR INTEGER 

LDA #0 ? CLEAR INTEGER RESULT 

STA ZTEMP4 

STA ZTEMP4+1 

CHECK EXPONENT 


; GET EXPONENT 


EN ERROR 
5 THAN 1? 


GET # OF DIGITS TO CONVERT = [EXPONENT -40+1]*2 
[A CONTAINS EXPONENT -40] 

[CARRY SET] 


STA ZTEMP1 

DO CONVERT 



COUNTER 


253 









Source Code 


D9EA 205ADA 
D9ED B053 *DA42 


MULT INTEGER RESULT BY 10 




; GO SHIFT ONCE LEFT 
; IF CARRY SET THEN # TOO BIG 


D9EF A5F7 
D9F1 85F9 
D9F3 A5F8 
D9F5 85FA 


LDA ZTEMP4 

STA ZTEMP3 

LDA ZTEMP4+1 

STA ZTEMP3+1 


INTEGER *2 


D9F7 205ADA 
D9FA B046 *DA42 
D9FC 205ADA 
D9FF B041 *DA42 


JSR 


BCS 




MULT BY *2 [NOW * 


ZTEMP4] 


DA02 A5F8 


CLC 

LDA ZTEMP4+1 


DA04 

DA06 

DA08 




85F8 

A5F7 

65F9 

85F7 

B032 


*DA42 


ADC ZTEMP3+1 

STA ZTEMP4+1 

LDA ZTEMP4 

ADC ZTEMP3 

STA ZTEMP4 

BCS sERVAL 


CARRY SET ERROR 


ADD IN NEXT DIGIT 


DA10 20B9DC 
DAI3 18 

DAI4 65F8 

DA16 85F8 
DAI8 A5F7 
DAIA 6900 
DA1C B024 ~DA42 
DA1E 85F7 


JSR :GETDIG 

ADC ZTEMP4+1 

STA ZTEMP4+1 

LDA ZTEMP4 

ADC #0 

BCS :ERVAL 

STA ZTEMP4 


y GET DIGIT IN A 
; ADD IN DIGIT 

; BR IF OVERFLOW 



; DEC COUNTER OF 


; GET NEXT DIGIT IN A 
y IS DIGIT <5? 
y IF YES, DON'T ROUND 
y ADD IN 1 TO ROUND 


DA30 



DA36 


A5F7 

6900 

85F7 


DA38 

DA38 A5F8 
DA3A 85D4 
DA3C A5F7 
DA3E 85D5 


STA ZTEMP4+1 

LDA ZTEMP4 


STA ZTEMP4 


MOVE INTEGER TO FR0 


LDA ZTEMP4+1 

STA FR0 

LDA ZTEMP4 

STA FR0+1 



GET INTEGER LOW 
SAVE 

GET INTEGER HIGH 


CLEAR CC FOR GOOD RETURN 


DA42 38 
DA43 60 


CARRY FOR ERROR RETURN 


ZFR0 - ZERO FR0 

ZF1 - ZERO 6 BYTES AT LOC X 
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Floating Point Routines 
FADD — Floating Point Add Routine 


ADDS VALUES IN FR0 AND FR1 

* ON ENTRY FR0 & FR1 - CONTAIN # TO ADD 

* ON EXIT FR0 - RESULT 

FSUB — Floating Point Subtract Routine 

* SUBTRACTS FR1 FROM FR0 

* ON ENTRY FR0 & FR1 - CONTAIN # TO SUBTRACT 

* ON EXIT FR0 - RESULT 

* BOTH RETURN WITH CC SET: 

* CARRY SET IF ERROR 

* CARRY CLEAR IF NO ERROR 





; GET EXPONENT OF FR1 
; CHANGE SIGN OF MANTISSA 
; SAVE EXPONENT 
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DB63 D0E9 *DE 


DB65 200FDD 


; SUB AGAIN 


>DA00 

>E000 

•DA00 


SHIFT LAST 

^ QTEMP 

L QTEMP 


DB77 

DB7A 

DB7D 

DB7E 

DB80 


DB81 9004 a DB87 
DB83 E6D9 
DB85 D0E9 ~DB70 


F QUOTIENT C 
? SHIFT ^ 


tfE NIBBLE LE 
BITS LEFT 


QTEMP 


SUBTRACT 0 


r LOOP CONTROL 
r DECIMAL MODE 


; STORE RESULT 

7 CLEAR DECIMAL MODE 
7 IF RESULT < 0 [FRE < FR1] BR 
; INCR # TIMES SUB [QUOTIENT] 


DB8C D0B5 A DB43 
DB8E 2062DC 
DB91 4C1ADB 


RSHF0E 

MDEND 


;SHIFT RIGHT FR0/FRE TO CLEAR 


:GETCHAR — Test Input Character 
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DBA1 SKPBLANK 



; - RTNS CARRY SET IF NUM 

DBAF TSTNUM 



:TSTCHAR — Test to See if This Can Be a Number 

* ON EXIT CC - CARRY SET IF NOT A # 

* CARRY CLEAR IF A # 


:TSTCHAR 



DBC5 F014 ~DBDB BEQ :TSTN 


DBC9 F007 "DBD2 BEQ :TSTN1 
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NORM — Normalize Floating Point Number 



DC17 C005 CPY #FMPREC ; ARE WE DONE 
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RSHFTO — Shift FRO Right/Increment Exponent 

RSHFT1 — Shift FR1 Right/Increment Exponent 

* ON ENTRY A - # OF PLACES TO SHIFT 



RSHFOE - Shift FRO/FRE 1 Byte Right [They Are Contiguous] 


DC68 CA 

DC69 10F9 *DC64 
DC6B A900 
DC6D 85D4 


; GET LOOP CONTROL 


DEC COUNTER 
MOVE NEXT BYTE 
GET ZERO 
SHIFT IT IN 


:CVFR0 — Convert Each Byte in FRO to 2 Characters in LBUFF 


ON ENTRY A - DECIMAL POINT POSITION 


DC70 :CVFR0 

DC70 85F7 STA ZTEMP4 


DECIMAL POSITION 


DC72 
DC 7 4 


CONVERT 


SET INDEX INTO OUTPUT 
LINE [LBUFF] 
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; DECREMENT BUFFER INDEX 
; GET LAST CHAR 


:GETDIG — Get Next Digit from FRO 


DCB9 

DCB9 20EBDB 


: GETDIG 

JSR NIBSH0 


DCBC A5EC 


DCBE 290F AND #$0F 

DCC0 60 RTS 

:DECINB — Decrement INBUFF 


DCCl 

DCC1 38 

DCC2 A5F3 
DCC4 E901 

DCC6 85F3 


DCCA E900 
DCCC 85F4 
DCCE 60 



SHIFT FR0 LEFT ONE NIBBLE 

GET BYTE CONTAINING 

SHIFTED NIBBLE 

AND OUT HIGH ORDER NIBBLE 



MDESUP — Common Set-up for Multiply and Divide Exponent 




FRSIGN 


KP WITH OUT SIGN 
WITHOUT SIGN 
3N FOR QUOTIENT 



GET FR0 EXPONENT 
GET FR1 EXPONENT 
AND OUT ALL BUT SIGN BIT 
SAVE SIGN 


SHIFT OUT SIGN IN FR1 EXP 
RESTORE FR1 EXP WITHOUT SIGN 
GET FR0 EXP 
AND OUT SIGN BIT 


MDSUP — Common Set-up for Multiply and Divide 

* ON ENTRY A - EXPONENT 



; SAVE EXPONENT FOR LATER 

; CLEAR FR0 EXP 
7 CLEAR FR0 EXP 


7 SHIFT FR2 1 NIBBLE LEFT 
7 GET SHIFTED NIBBLE 


265 







Source Code 



266 




Source Code 


MVFROE - Move FRO lo FRE 

DD34 MVFR0E 

DD34 A005 LDY 

DD36 :MV1 

DD36 B9D400 LDA 

DD39 99DA00 STA 


DD40 86FE 


DD48 A005 

DD4D 20B6DD 
DD50 A6FE 
DD52 A4FF 
DD54 2089DD 
DD57 C6EF 
DD59 F02D *1 
DD5B 20DBDA 
DD5E B028 ‘ 


Polynomial Evaluation 

Y=A[0]+A[1]*X+A[2]*X**2+...4 
= [[ • • • [A[N]*X+A[N-1]]*X+. . . 
INPUT: X IN FR0, N+l IN A-RE 
REG [X,Y]->A[N]...A[0] 

OUTPUT Y IN FR0 
USES FPTR2, PLYCNT, PLYARG 
CALLS FST0R, FMOVE, FLD1R, F 
STX FPTR2 7 SAVE PO 

If FPTR24-1 

\ PLYCNT 

K #PLYARG&$FF 

t #PLYARG/$100 

R FST0R ;SAVE AR 

f FPTR24-1 


->FR0 [INIT SUM] 



DD67 9006 *DD6F 
DD69 A5FF 


DD71 A4FF 
DD73 2098DD 
DD76 2066DA 
DD79 B00D A DD88 
DD7B C6EF 





DD83 2098DD 


PLYOUT RTS 


PLYOUT 

PLYCNT 

PLYOUT 

#PLYARG&$FF 

#PLYARG/$100 

FLD1R 

PLYEV1 


Floating Load/Store 

STX FLPTR ; SET 

FLPTR4-1 

LDY #FPREC-1 ?# BY 

LDA [FLPTR], Y 7 MO\; 


E W/FLPTR SET 


DD98 86FC 


FLD01 7 COUNT & LOOP 

\D FR1 FROM [X,Y] OR [FLPTR] 

< FLPTR 7 FLPTR=>[X,Y] 
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DD9A 84FD STY 

DD9C A005 FLD1P 

DD9E B1FC FLD11 

DDA0 99E000 STA 

DDA3 88 DEY 

DDA4 10F8 *DD9E BPL 


#FPREC-1 
[FLPTR],Y 


ENTER W/FLPTR SET 




COUNT & LOOP 





DDB0 

DDB2 

DDB5 


A005 

B9D400 


60 


* STORE FR0 IN [X,Y] 

FST0R STX FLPTR 

FST0P LDY #FPREC-1 

FST01 LDA FR0,Y 

STA [FLPTR],Y 


[FLPTR] 


ENTRY W/FLPTR SET 


MOVE FR0 TO FR1 


DDB6 MV0TO1 

DDB6 A205 FMOVE LDX #FPREC-1 

DDB8 B5D4 FMOVE1 LDA FR0,X 

DDBA 95E0 STA FR1,X 

DDBC CA DEX 

DDBD 10F9 “DDB8 BPL FMOVE1 

DDBF 60 RTS 





DDCC 

DDD0 

DDD2 



A289 

2098DD 

20DBDA 


85F1 


85F0 

297F 


EXP[X] and EXP10[X] 

EXP LDX #LOG10E&$FF ; E**X = 10**[X*LOG10[E]] 

LDY #LOG10E/$100 

JSR FLD1R 



; 10**X 

7 CLEAR TRANSFORM FLAG 


; REMEMBER ARG SGN 


DDD9 E940 
DDDB 3026 *DE03 



DDE 3 
DDE 8 


106A *DE4B 

A2E6 

A005 

20A7DD 

20D2D9 


SBC #$40 

10**X = 10**[I+F] 
CMP #FPREC-2 

BPL EXPERR 

LDX #FPSCR&$FF 

LDY #FPSCR/$100 

JSR FST0R 



? X<I SO USE SERIES DIRECTLY 
[10**1] * [10**F] 


? SAVE ARG 
7 MAKE INTEGER 


DDED 85F1 
DDEF A5D5 
DDF1 D058 *DE4B 
DDF3 20AAD9 
DDF6 20B6DD 

DDFB A005 
DDFD 2089DD 
DE00 2060DA 


DE03 A90A 
DE05 A24D 
DE07 A0DE 


BNE EXPERR 


SAVE MULTIPLIER EXP IN XFORM 
CHECK MSB 
SHOULD HAVE NONE 




FMOVE 

#FPSCR&$FF 

#FPSCR/$100 


NOW HAVE FRACTION PART OF ARG [ 
INTEGER PART [I] 

IN XFMFLG. USE SERIES APPROX F 
10**F, THEN MULTIPLY BY 10**1 


r = FRACTION 


#NPCOEF 
#P10COF&$FF 
#P10COF/$ 100 


268 



Source Code 





Z = [X-C]/[X + C] 

DE95 86FE XFORM STX FPTR2 

DE97 84FF STY FPTR2+1 

DE99 A2E0 LDX #PLYARG&$FF 

DE9B A005 LDY #PLYARG/$100 

DE9D 20A7DD JSR FST0R ?STASH X IN PLYARG 
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DEA4 2098DD 
DEA7 2066DA 
DEAA A2E6 
DEAC A005 
DEAE 20A7DD 
DEB1 A2E0 
DEB3 A005 

DEB5 2089DD 

DEB8 A6FE 
DEBA A4FF 
DEBC 2098DD 
DEBF 2060DA 


#FPSCRSc$FF 

#FPSCR/$100 

FST0R 

#PLYARG&$FF 

#PLYARG/$100 

FLD0R 

FPTR2 

FPTR2+1 

FLD1R 


DEC2 A2E6 
DEC4 A005 

DEC6 2098DD 

DEC9 2028DB 


#FPSCR&$FF 

#FPSCR/$100 

FLD1R 

FDIV 7 [X-C]/[X+C] = Z 


LOG10[X] 


D002 *DED3 

A900 

85F0 


DED5 

DED7 

DED9 

DEDA 


DEDB A5D4 
DEDD 85E0 
DEDF 38 


DEE 2 

DEE2 +0A 

DEE3 85F1 

DEE5 A5D5 

DEE7 29F0 

DEE9 D004 ~DEEF 

DEEB A901 

DEED D004 ~DEF3 


DEF1 A910 
DEF3 85E1 
DEF5 A204 
DEF7 A900 
DEF9 95E2 
DEFB CA 
DEFC 10FB *DEF9 
DEFE 2028DB 


DF01 


DF03 A0DF 
DF05 2095DE 
DF08 A2E6 
DF0A A005 
DF0C 20A7DD 
DF0F 20B6DD 
DF12 20DBDA 
DF15 A90A 
DF17 A272 
DF19 A0DF 
DF1B 2040DD 
DF1E A2E6 
DF20 A005 
DF22 2098DD 



?REMEMBER ENTRY POINT 
; CLEAR FLAG 

; USE SGNFLG FOR LOG/LOG10 
MARKER 


LOG1 


WE WANT X = F*[10**Y], 1<F<10 
10**Y HAS SAME EXP BYTE AS X 
& MANTISSA BYTE = 1 OR 10 
LDA FRO 


SBC #$40 


STA XFMFLG 
LDA FR0+1 

AND #$F0 

BNE LOG2 


7 REMEMBER Y 


BNE LOG3 

LOG2 INC XFMFLG 

LDA #$10 

LOG3 STA FR1+1 

LDX #FPREC-2 

LDA #0 

LOG4 STA FR1+2,X 


7 SET UP MANTISSA 
; CLEAR REST OF MANTISSA 



FLOG10 

LDX #SQR10&$FF 

LDY #SQR10/$100 

JSR XFORM 

LDX #FPSCR&$FF 

LDY #FPSCR/$100 

JSR FST0R 


7 X = X/[10**Y] - S.B. 
IN [1,10] 

77LOG10[X],1<=X<=10 


s = [x-c]/[x+c],c*c 


10 


LDA #NLCOEF 

LDX #LGCOEF&$FF 

LDY #LGCOEF/$100 

JSR PLYEVL 7 P[Z*Z] 

LDX #FPSCR&$FF 

LDY #FPSCR/$100 
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DF25 20DBDA 


DF2C 

DF2F 

DF32 


2098DD 

2066DA 

20B6DD 

85D5 

A5F1 

85D4 


#FHALF&$FF 
#FHALF/$100 


DF42 

DF46 

DF49 


DF53 

DF53 

DF56 

DF56 

DF58 

DF5A 

DF5E 

DF61 

DF64 

DF65 

DF66 


DF72 

DF78 

DF84 

DF90 

DF96 


20AAD9 

24F1 

1006 ~DF 

A980 

05D4 


A5F0 
F00A "DF64 
A289 


LOG 7 

JSR 

LOGOUT 


4003162277 

3F50000000 


DFA8 

DFAE 


LOGDON 

LGCOEF 


3F39205761 

95 

BF04396303 


3F10093012 

64 

3F09390804 


3F12425847 

42 

3F17371206 


3F86858896 


; LEAVES FR1 ALONE 


? LOG[X] = LOG[X] + 


SGNFLG 
LOGDON 
#LOG10E&255 
#LOG10E/$100 
FLD1R 


$16,$22,$77,§66 ;SQUARE R 


$BF,$51,$70, $49, 


BYTE 

BYTE 


BYTE 

BYTE 


$3F,$10,$09,$30, 


•*, $17, $37, 

$28,$95,$29, 
f 1 , $86, $85, $88, 


00 

BE95683845 

00 

3F02687994 

BF0492 7890 
80 

3F07031520 

BF08922912 
44 

3F11084009 

11 


7,$11,$08 ,*0.4915571108 
7, $08 ,*-0.5170494708 
L,$95 70.3920576195 
3,$55 7-0.0439630355 

2, $64 ,*0.1009301264 

1 ,$60 ; 0.0939080460 

7,$42 70-1242584742 

3, $08 ; 0.1737120608 

L,$17 70.28957117 

3,$44 70-8685889644 


3,0 ;0.0016054449 
r-0.009568345 
3 ,*0.0268799416 
3 7-0.0492789080 
70.0703152000 
1 7-0.0892291244 
L 70.1108400911 
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Macros in 
Source Code 

The following is a listing of the macros used in this source listing. You will 
be able to tell when a macro was used by a plus (+) sign to the left of the hex 
code produced in column two by the assembler. 


%L 


RORA: 

%L 


%L 

ROLA: 

%L 

FDB: 
%L 






MACRO 

ENDM 

MACRO 


MACRO 

ROL 

ENDM 

MACRO 

IF 


IF 


MACRO 


MACRO 

IF 





'% 1 ' = ’=' 

$80+ (((%2-*)&$7F) XOR $40 ) 

•% 1 ' = ‘@@' 

( %2 ) 

%1 


Syntax Table Macro 

THIS MACRO IS USED TO SIMULATE THE ACTION OF THE ORIGINAL 
ASSEMBLER IN HANDLING SPECIAL SYNTAX TABLE PSEUDO OPS AND 
OPERANDS 


THE 'SYN' MACRO EXAMINES UP TO 4 ARGUMENTS FOR CERTAIN SPECIAL 

IF THE NAME 'JS' IS FOUND, IT GENERATES A SPECIAL ’RELATIVE 
SYNTAX JSR' TO THE LABEL FOUND IN THE NEXT PARAMETER 
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The Bugs in 
Atari BASIC 


Yes, it's true. There are some bugs in Atari BASIC. Of course, 
that's not surprising, since Atari released the product as ROM 
without giving the authors a chance to do second-round bug¬ 
fixing. But what hurts, a little, is that most of the fixes for the 
bugs have been known since June of 1979. 

As this book is being written, rumor has it that at last Atari 
is in the final stages of releasing a new version of the BASIC 
ROMs. Unfortunately, these modified ROMs will appear too 
late for us to comment upon them in this edition. On the other 
hand, there are supposed to be fewer than twenty fixes 
implemented (which isn't a bad record for a product as mature 
as Atari BASIC), so those of you who are willing to PEEK 
around a bit can use this listing as at least a road map to the 
new ROMs. 

In any case, though, we thought it would be appropriate to 
mention a few of the bugs we know about, show you why they 
exist, and tell how we fixed them back there in the summer of 
'79. 

The Editing and String Bug 

In the course of editing a BASIC program, sometimes the 
system loses all or part of the program, or it simply hangs. 
Often, even SYSTEM RESET will not return control to the user. 

Also, string assignments that involve the movement of 
exact multiples of 256 bytes do not move the bytes properly. 

For example, A$ = B$(257,512) would actually move bytes 513 
through 768 of B$ into bytes 257 through 512 of A$, even if 
neither string were DIMensioned to those values. 

Both of these are really the same bug. And both are caused 
because we strove to be a little too efficient. 

There are many ways to move strings of bytes using the 
6502's instruction set. The simplest and most-used methods, 
though, are excruciatingly slow. So Paul and Kathleen 
invented a super-fast set of move-memory routines, one for 
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moving up in memory (EXPAND, at $A881) and one for 
moving down in memory (CONTRACT, at $A8FD). 
Unfortunately, the routines are very complex (which is what 
makes them fast) and difficult to interface with properly. And 
so a bug crept into CONTRACT. 

Take a look at the code of FMOVER ($A947). When we get 
here, we expect MVLNG to contain the complement of the least 
significant byte of the move length while MVLNG +1 contains 
its most significant byte. But look what happens if the original 
move length was, for example, $200. The complement of the 
least significant byte ($00) is still zero ($00), so the BEQ to 
:CONT4 occurs immediately. 

But by then, the X register contains the number of pages to 
move plus one (X would contain 3 in this example), so we 
increment it (it becomes 2) and go to label :CONT3, where we 
bump the high-order byte of both the source and destination 
addresses. Ah, but therein lies the rub! We haven't yet done 
anything with the first values in those source and destination 
addresses, so we have effectively skipped 256 bytes of each! 

The solution is to replace the BEQ :CONT4 at $A94E with 
the following code: 

DEX 

BNE :CONT2 

RTS 

Do you see the difference? If we enter with MVLNG equal 
to zero, we immediately move 256 bytes (at :CONT2) before ever 
attempting to change the source and destination addresses. 

And this fix works, honest. We've been using it like this for 
over two years in BASIC A +. 

Minus Zero 

Taking the unary minus of a number (A = 0 : PRINT -A) can 
result in garbage. Usually, this garbage will not affect 
subsequent calculations, but it does print strangely. And how 
did this come about? 

We simply forgot to take into consideration the fact that 
zero doesn't really have a sign. Look at the code for the unary 
minus operator (XPUMINUS, at $ACA8). Do you see the 
problem? We simply invert the most significant bit (the sign bit) 
of the floating point number in FRO. 
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What we should have coded would be something like this: 


LDA 

FRO 

BEQ 

: NOINVERT 

EOR 

#$80 

STA 

FRO 

: NOINVERT 


Luckily, this is not too severe a problem to the BASIC user 
(one can always use "PRINT 0-A" instead of "PRINT -A"), 
but just think — it only cost two bytes to fix this bug. 

LOCATE and GET 

The GET statement does not reinitialize its buffer pointer, so it 
can do nasty things to memory if used directly after a statement 
which has changed the system buffer pointer. For example, 
GET can change the line number of a DATA statement if it is 
used after a READ. Also, the same problem exists for the 
LOCATE statement, since it calls GET. 

From BASIC, the easiest solution is to use a function or 
statement which is known to reset the pointer. Coding 
"XX = STR$(0)" works just fine, as does PRINTing any 
number. 

Within the source listing, the problem exists at location 
$BC82, label GET1. If the code had simply read as follows, 
there would be no bug: 

GET1 

JSR INTLBF; reset buffer pointer 
LDA #ICGTC; continue as before 

INPUT and READ 

Using either an INPUT or READ statement without a following 
variable does not cause a syntax error (as it should). Then, 
attempting to execute a statement such as 20 INPUT can cause 
total system lock-up. 

The solution from BASIC? Be careful and don't do it. 

And this is one bug that we will not show the fix for, 
simply because it's too long and involved. We will, however, 
point to labels :SINPUT and :SREAD (at locations $A6F4 and 
$A6F5) in the Syntax Tables and show why the bug exists. 

Note that the :SINPUT does a syntax call (SYN JS,) to the 
:OPD syntax, which looks for — but does not insist upon — a 
file number specifier (# < numeric expression >). Then the 
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syntax joins with :SREAD, which looks for zero or more 
variables. 

Oops! Zero or more? Shouldn't that be one or more? That's 
where the problem lies. 

Do Not Use NOT 

In all too many cases, the use of the NOT operator is 
guaranteed to get you in trouble. If you don't believe it, try 
this: PRINT NOT NOT1. 

The explanation of why the bug occurs is too lengthy to 
give in detail here; suffice it to say that the precedence of NOT 
is wrong. Remember the Operator Precedence Table we 
displayed in Chapter 8 of Part 2? Look at what you got for the 
go-onto-stack and come-off-stack precedence values for NOT. 

Or look at location $AC57, the NOT entry in OPRTAB. 

NOT uses a 7 for both its precedence values. But wait a minute. 
If two operators have the same apparent precedence (as in 
NOT NOT A or even A + B + C), the expression executor will 
pop the first one off the stack and execute it. But with a unary 
operator, there is nothing to execute yet. 

And the same bug exists for both unary minus and unary 
plus, so - -3 and + +5 don't execute properly. Of course, since 
unary plus doesn't really do anything, it doesn't matter. In the 
case of unary minus, though, all but the last minus sign in a 
string of minus signs is ignored (that is, - -3 produces -3 as a 
result, instead of +3, as it should). But, by an incredible 
coincidence, the damage that unary minus causes is invisible to 
Execute Expression as a whole and only produces the error 
noted. 

The fix? Well, if we want to leave NOT where it is in the 
order of things, the only way is to restructure the whole 
precedence table. But if we are willing to accord it a very high 
precedence, like unary plus and minus, we can fix it — and 
plus and minus — by changing the bytes at $AC57, $AC64, and 
$AC65 to $DC. And, thanks to the differing go-onto-stack and 
come-off-stack values, we can stack as many NOTs, pluses, or 
minuses as we want. 

Are these all the bugs we know about that can be fixed 
easily? No. But these are the easiest to understand or the 
easiest to fix, and we thought they were instructive. 

Of course, unless you have an EPROM board and burner 
handy, you may not be able to take advantage of these fixes. 
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But at least now you may be able to work around them as you 
program with good old buggy-version Atari BASIC. 

And take heart. Remember Richard's Rule: Any nontrivial 
piece of software has bugs in it. And the corollary: Any piece of 
software which is bug-free is trivial. 





Appendix C 


Labels and 


Hexadecimal 


Addresses 


AADD AF52 
AAPSTR AB98 
ADC AF53 
ADFLAG 00B1 


AF5D 

AF46 




CGTO 0017 
CILET 0036 


CIX 00F2 
CLALL1 BD4F 
CLE 001D 


CLIST 0004 
CLPRN 002B 
CLSALL BD41 
CLSYS1 BCF1 
CLSYSD BCF1 
CLT 0020 
CMINUS 0026 


COLDST 

COLOR 

COMCNT 


CONTLO 

CONTRA 

COPEN 



0029 


CPLUS 0025 
CPND 001C 
CR 009B 
CREAD 0022 
CREGS 02C4 
CRPRN 002C 
CRTGI BFF9 
CSASN 002E 
CSC 0015 
CSEQ 0034 
CSGE 0031 
CSGT 0033 
CSLE 002F 
CSLPRN 0037 



CVAFP D800 
CVAL 0041 
CVFASC D8E6 


CVFPI AD56 
CVIFP D9AA 
DATAD 00B6 
DATALN 00B7 
DCBORG 0300 
DEGFLG 00FB 
DEGON 0006 
DIGRT 00F1 
DIRFLG 00A6 

DSPFLG 02FE 
ECSIZE 00A4 
EEXP 00ED 
ELADVC BADD 
ENDSTA 008E 
ENDWT 0088 
ENTDTD 00B4 
EPCHAR 005D 
ERBRTN B920 
ERGFDE B922 
ERLTL B924 
ERNOFO B926 
ERNOLN B928 
ERON B93E 
EROVFL B92A 
ERRAOS B92C 
ERRDIM B92E 
ERRDNO B918 
ERRINP B930 
ERRLN B932 
ERRNSF B916 
ERRNUM 00B9 
ERROOD B934 
ERROR B940 
ERRPTL B91A 
ERRSAV 00C3 
ERRSSL B936 
ERRVSF B938 
ERSVAL B91C 
ERVAL B93A 
ESIGN 00EF 
EVAADR 0002 
EVAD1 0004 
EVAD2 0006 
EVARRA 0040 
EVDIM 0001 
EVNUM 0001 
EVSADR 0002 
EVSCAL 0000 
EVSDIM 0006 
EVSDTA 0002 
EVSLEN 0004 
EVSTR 0080 
EVTYPE 0000 
EWALU 0002 
EXECNL A95F 
EXECNS A962 


EXEXPR AAE0 
EXOPOP AB0B 

EXP1 DE03 



EXPAND A881 

EXPINT AB2E 
EXPLOW A87F 
EXPOUT DE4A 
EXPSGN DE39 
EXSVOP 00AB 
EXSVPR 00AC 

. FASC D8E6 
FBODY 000C 
FCHRFL 00F0 

FDIV DB28 
FHALF DF6C 
FIXRST B825 
FLD01 DD8F 
FLD0P DD8D 
FLD0R DD89 

FLD1P DD9C 

FLIST BAD5 
FLPTR 00FC 

FMOVE1 DDB8 
FMOVER A947 
FMPREC 0005 
FMUL DADB 
FNTAB A829 

FPONE BE71 
FPORG D800 
FPREC 0006 
FPSCR 05E6 



FR2 00E6 
FRA10 DD01 
FRA1E DD09 
FRA20 DD05 
FRA2E DD0F 
FRADD AD3B 
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Index 


Symbols 

" in Operator Name Table 177 

with string literals 130 
, (See also XPACOM) 

in Operator Name Table 177 
precedence of 69-70 
with array, in ONT180 
with PRINT 98 

$ in hexadecimal 115 

in Operator Name Table 177 
in variable names 15, 46 
: (See alphabetic entry for terms 

that begin with like 

:LPRSCAN) 58 
in Operator Name Table 177 
with PRINT 98 

; in Operator Name Table 177 

with PRINT 98 

# in Operator Name Table 178 
with PRINT 98 

< = (See also XPLE, XPSLE) 178-79 

< > (See also XPNE, XPSNE) 178-79 

> = (See also XPGE, XPSGE) 178-79 

< (See also XPLT, XPSLT) 

in ABML 34-39 
in Operator Name Table 
178-79 

precedence of 56 

> (See also XPGT, XPSGT) 

in ABML 34-39 
in Operator Name Table 
178-79 

precedence of 56 

= (See also XPEQ, XPSEQ) 41-42, 

58-64 

in Operator Name Table 
178-79 

precedence of 55-56 
A in Operator Name Table 178 

precedence of 55-56, 58-64 

* (See also XPMUL, FMUL, 

FRMUL) 

in Operator Name Table 178 
precedence of 55-56, 58-64 
+ (See also XPPLUS, XPUPLUS, 

FADD, FRADD) 
in Operator Name Table 178 
unary 179, Appendix B 
precedence of 55-56, 58-64 


(See also XPMINUS, XPUMINUS, 
FSUB, FRSUB) 
in Operator Name Table 178 
unary 179, Appendix B 
I (See also XPDIV, FDIV, FRDIV) 

178 

( (See also XPDLPRN, XPALPRN, 

XPSLPRN) 

in variable names 15, 46 
mathematical, in Operator 
Name Table 179 
precedence of 69-70 
string, array, DIM, and func¬ 
tion, in ONT 179-80 
tokens for 70 
) (See also XPRPRN) 

in Operator Name Table 179 
precedence of 69-70 
:= 34-37 

1 34,37, 41 

= < 56 

! as EOE operator 34-35,58-64 

? 95 

Numbers 

6502 microprocessor 1-2,40 

A 

AADD 202, $AF52 
AADR 66-68 
AAPSTR191, $AB98 
ABS (See also XPABS) 69,180, 206 
Absolute Non-Terminal Vector (See 
ANTV) 

ABML (Atari BASIC Meta-Language) 
33-34, 37 
AD Appendix A 
addition (See FADD, FRADD) 

ADR 180 

AMUL 202, $AF5D 
AMUL 2 202, $AF46 
AND (See also XPAND) 89,179 
ANTV (in ABML) 40-42, 44,162 
APHM13,143, $000E 
application high memory 13 
ARGOPS 23, 66,143, $0080 
ARGP2192, $AC06 
ARGPOP192, $ABF2 
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ARGPUSH 65,191, $ABBA 
ARGSTK 23, 66,143, $0080 
arguments 56 

Argument Stack 12,23, 56-67 
entry format 66-68 
example of use 56-64 
arithmetic assignment operator (See 
XPAASN) 

arithmetic expressions 12, 55-65 
array variables 15-16,18, 66-67, 69-70, 
106-7,127 

Array/String Table (See String/Array 
Table) 

ARSLVL 66,144, $00AA 
ARSTKX144, $0OAA 
ASC (See also XPASC) 180, 204 
ASCIN246, $D800 
ASLA: Appendix A 
assembler 2 
assembly language 2-3 
ATAN[X] 244, $BE77 
Atari BASIC 

as a high-level language 2-5 
location in memory 14 
Meta-Language (ABML) 33 
ROM pointer 143, $A000 
Atari cartridge vectors 272 
ATASCII9, 47, 88, 90,116,135-36 
AT LINE (in error message) 74, 231-32, 
$B9AE 

ATN (See also XPATN, ATAN) 180, 207, 
244 

AUXn (i.e., AUX1, AUX2, etc.) 99-100 

B 

BASIC ROM pointer 143, $A000 

binary 115,119-20 

blanks in program lines 27, 29 

block move routines 20-23 

BNF33 

BREAK 50, 96,101 
BRKBYT101,110,143, $0011 
buffer (See also INBUFF, OUTBUFF, 
LBUFF) 13, 65,145 
bugs Preface, 20-21, Appendix B 
BYE (See also XBYE, :SBYE) 105 
BYELOC143, $E471 
byte 119-20 
BYTE: Appendix A 

c 

CALPRN 70 

carriage return character 177 
cartridge vectors 272 


CDLPRN 70 
CDSLPR70 
CFLPRN 70 

Change Last Token (in ABML) 41-42 
CHNG (in ABML) 41-42, 45,162 
CHR$ (See also XPCHR) 180, 205 
CIO 25, 85, 91, 93,102,143, $E456 
CIX 26, 29-30, 43, 45, 47 
CLOAD (See also XCLOAD, :SCLOAD) 
84, 237 
CLOG 180 

CLOSE (See also XCLOSE, :SCLOSE) 
100, 146, 239 
CLPRN70 

CLR (See also XCLR, :SCLR) 83,103, 224 
CLSALL 242, $BD41 
CLSYS199, 241, $BCF1 
CLSYSD 241, $BCF1 
COLDSTART 86,101, 109-110, 147, 
$A000 

COLOR (See also XCOLOR, :SCOLOR) 
execution 91, 233 
memory location 91-92,144, 
$00C8 

color registers (See also CREGS) 91-92, 
143 

COMMON (unused command; see 
XCOM, :SCOM) 
compiler 3-4 
constants 33-34,130 
CONT (See also XCONT, :SCONT) 

71-72, 225 

:CONT2183, Appendix B, $A954 
:CONT3183, Appendix B, $A950 
:CONT4183, Appendix B, $A95B 
CONTLOW 20-23, 31, 77,182, $A8FB 
CONTRACT 20-22, 28,182-83, $A8FD, 
Appendix B 
conversion 

ASCII to floating point 145, 
$OOED-$OOF1 

decimal to hexadecimal 116-17 
floating point to ASCII (See also 
CVFASC) 250-52 
floating point to integer (See also 
CVFPI, FPI) 197, 253-55 
hexadecimal to decimal 116 
integer to floating point (See also 
CVIFP) 252-53 
COPEN 237, $BBB6 

COS (See also XPCOS, COS[X]) 105,180, 
207,243 

COS[X] 243, $BDB1 
COX 26, 27-30, 43, 45, 48, 97-98,144, 
$0094 

CPC 43-44,144,153, $009D 
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CPU stack 43, 51, 74-75,109-110 
CREGS143, S02C4 
CRTGI143, $BFF9 

CSAVE (See also XCSAVE, :SCSAVE) 
84, 237 
CSLPRN70 

Current Program Counter (See CPC) 
CVAFP 96, 246, $D800 
CVFASC 98, 250, $$D8E6 
CVFPI (See also FPI) 197, $AD56 
CVIFP 252, $D9AA 
:CVFR0 263, $DC70 


D 

D1169, SA705 

DATA (See also XD AT A, :SDATA) 
103-104, 110,131,140 
DATAD103-4,110,144, $00B6 
DATALN103-4,110,144, $00B7 
DCBORG 143, $0300 
debugger 2 
decimal 115-17 
:DECINB 265, $DCC1 
definition 

in language creation 33-34 
DEG (See also XDEG, :SDEG) 105,145, 
211 

DEGFLG145, $00FB 
deleting lines 28 
DEND 81-82 

DIM (Seealso XDIM, :SDIM) 16-17, 66, 
127 

and "(" operator 70,197 
effects on tables 16-17 
execution 106-7, 210 
DIMENSION TOO SMALL error (See 
also ERRDIM) 96 
direct statement 32, 49, 51-52, 74 
DIRFLG 26, 30-32,144, $00A6 
Disk Device Dependent Note 
Command 100 

division (See FDIV, FRDIV, 7') 

DOS (See also X DOS, :SDOS) 105,109 
DOSLOC143, $000A 
DPEEK122 
DPOKE122 

DRAWTO (See also XDRAWTO, 
:SDRAWTO) 92-93, 146, 233 
deus ex machina 40-41, 46 
DSPFLG 143, $02FE 
DST 81-82 
DWT 81-82 


E 

ECHNG 45,154, $A2BA 
Editor (See Program Editor) 

:EGTOKEN (See GETTOK) 

ELADVC 83, 235, $BADD 

END (See also XEND, :SEND) 71-72, 225 

End Of Expression (See EOE operator) 

end-of-statement token (See also EOS) 76 

ENDSTAR 139,143, $008E 

ENDWT143, $0088 

English 37 

ENTDTD 85-86,110, $00B4 
ENTER (See also XENTER, :SENTER)23, 
25,123,128,140 
device 71, 85-86 
execution 85-86, 235 
EOE operator 57-66 

EOL character 58, 95-96, 98, 99-100,143, 
177 

EOPUSH65,189, $AB15 
EOS 169, $A6F8 
EOS2173, $A773 
EPCHAR143 
equates 

ICCOM value 146 
ICSTA value 146 
miscellaneous 143 
Run Stack 147 
variables 147 
ERBRTN 230, $B920 
ERGFDE 230, $B922 
ERGFDEL 77, 79, 224, $B74A 
ERLTL230, $B924 
ERNOFOR 78, 230, $B926 
ERNOLN 75, 230, $B928 
ERNTV44,152, $A201 
ERON 230, $B93E 
EROVFL 230, $B92A 
ERRAOS 230, $B92C 
ERRDIM 106, 230, $B92E 
ERRDNO 230, $B918 
ERRINP 96, 230, $B930 
ERRLN 230, $B932 
:ERRM1231, $B961 
:ERRM2 71, 231, $B974 
ERRNSF 83, 230, $B916 
ERRNUM 72,101,110,144, $00B9 
ERROOD104, 230, $B934 
ERROR 71, 88,101,106, 231, $B940 
error handling 73-74 

and DATA-READ104 
and DIM 106 
and GOTO 75 
and INPUT 96 
and LOAD 83 
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and SETCOLOR 91 
and SOUND 93 
and TRAP 73, 231 
execution 231 
in I/O 101,109,146 
in line processing 25-26,28 
in LISTing 88 

in statement processing 29-30 
in syntactical analysis 38-39 
messages 230 
missing FOR entry 78 
missing GOSUB entry 79 
missing line number 77 
that stops program 73-74 
ERRPTL 83, 230, $B91A 
ERRSAV144, $00C3 
ERSVAL 230, SB91C 
ERVAL91, 93, 230, $B93A 
ESRT (in ABML) 40-41, 44, 47,162 
:EVEN 249, $D8CE 
EXECNL 32, 49, 75,183, $A95F 
EXECNS183, $A962 
Execute Expression (See also EXEXPR) 

12, 55-70,105,189-90 
Execution Control 49-54, 75, 77, 83, 
183-85 

EXECUTION OF GARBAGE error (Sec 
also XERR) 106 

executor (See Program Executor) 

EXEOL 184, $A989 
EXEXPR 64-65,189, $AAE0 
EXNXT 65,189, $AAE3 
EXOP 65, 69,190, $AB20 
EXOPOP 65,189, $AB0B 
EXOT 65,189, $AAEE 
EXP (See also XPEXP) 180, 208 
:EXP 162, $A60D 
EXP[X] 268, $DDC0 
EXP10[X] 268, $DDCC 
EXPAND 20-21, 106-7,144,181, SA881, 
Appendix B 

EXPINT 65,190, $AB2E 
EXPL173, $A76C 
EXPL1173, $A76F 

EXPLOW 20-22, 31, 77-78,181, $A875 
exponential operator (i.e., A**B; see 
XPPOWER) 

expressions (See also Execute 
Expression) 
in ABML 34 
rearrangement of 55-65 
Expression Non-Terminal Vector (See 
VEXP) 

Expression Rearrangement Procedure 
(See also expressions, rearrangement 
of) 57 


EXPTST 65,189, $AAFA 
EXSVOP 65,144, $00AB 
EXSVPR144, $00AC 
External Subroutine Call (See ESRT) 


FADD 255, $DA66 
FAIL 44-45,153, $A26C 
false (See XFALSE, :FALSE) 

: FALSE 224, $B788 
FDB: Appendix A 
FDIV 259, $DB28 
files 

LIST-ENTER format (See FLIST) 
SAVE-LOAD format 81-82 
FIXRSTK 226-27, $B825 
FLIST 235, $BAD5 
floating point 126-27 

add (See FADD, FRADD) 

ASCII to fp conversion 145, 
$OOED-$OOF1 

fp to ASCII conversion 250-52, 
$D8E6-$D9A9 

fp to integer conversion 253-55, 
$D9D2-$DA5F 
comparisons 196-97 
divide (See FDIV, FRDIV) 
in ROM 14,143,246-72, 
$D800-$DFF6 

integer to fp conversion 252-53, 

$D9AA-$D9CF 

load/store 267 

multiply (See FMUL, FRMUL) 
routines 255-67 
subtract (SeeFSUB, FRSUB) 
zero page work area 143,145, 
$00D2-$00EC 
FLOG10 270, $DF01 
FMOVER183, Appendix B, $A947 
FMUL 257 $DADB 
:FNZER0264, $DCA4 
FOR (See also XFOR, :SFOR) 12 

entry on Runtime Stack 18-19, 
76-77,133-34 
execution 77-78, 220-21 
tricks with 131 
FPI253, $D9D2 
FPORG143, 246, $D800 
FRO 145, $00D4 
FROM 145, $00D5 
FR1145, $OOEO 
FR1M145, $00E1 
FR2145, $00E6 

FRAwn (i.e., FRA10, FRA20) 266, $DD01 
FRADD 196, $AD3B 
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Index 


FRCMP196, SAD35 
FRDIV196, $AD4D 
FRE 

floating point memory location 
145, $00DA 

function (See also XPFRE) 180, 204 
FRMUL196, SAD47 
FRSUB 196, $AD41 
FRUN 236, $BAF7 
FS172, SA751 
FSTEP168, $A6DE 
FSUB255, $DA60 
Function Name Table 180 
functions (See entry under individual 
function name) 

G 

GDI01101, 239, $BC22 
GDVCIO 100-101, 239, $BC1D 
GET (See also XGET, :SGET) 97,146, 

239, Appendix B 
GET1239, Appendix B, $BC82 
GET1INT192, $ABE9 
GETADR 44,152, $A215 
:GETCHAR 260, $DB94 
:GETD1G 265, $DCB9 
GETINT 99,192, $ABE0 
GETLL 31, 53, 185, $A9DD 
GETLNUM151, SA19F 
GETPINT192, $ABD5 
GETSTMT 31, 52-53, 54, 75, 87,103-4, 
184, $A9A2 

GETTOK128,190, $AB3E 
:GETTOK 77, 79, 223, SB737 
GETVAR 191, $AB89 
GIOCMD 99, 241, $BD04 
GIODVC 99, 240, $BC9F 
GIOPRM 241, $BD02 
GLINE 234, $BA89 
GNLINE 234, $BA80 
GNXTL 31, 51, 53, 185, $A9D0 
GOSUB (See also XGOSUB, :SGOSUB) 
12,43, 79-80,103,127 

entry on Runtime Stack 18-19, 
133-34 

execution 79, 221-22 
in ABML 40, 42 
in Operator Name Table 178 
GOTO (See also XGOTO, :SGOTO) 75, 
123, 128,177, 221-22 
GRAPHICS {Seealso XGR, :SGR) 86, 91, 
234 

grammar 33-35, 37 
:GRF 205, $B030 
GRFBAS143, $0270 


GSTRAD 191, $AB9B 
GWTADR193, $AC28 


H 

hexadecimal 2, 115-17 
high level languages 3 
high memory address 13 
HIMEM 143, $02E5 
HMADR13,143, $02E5 


ICCOM146, $0342 
ICSTA146, $0343 
IF (See also XIF, :SIF) 76,154, 224 
IFA 174, $A799 
INBUFF 23, 25, 47, 88, 91, 98 
INPUT (See also XINPUT, :SINPUT) 
95-96, 143,145, 213-14, Appendix B 
INT (See also XPINT) 180, 206 
interpreter 1, 3-5 
INVAR 46 

I/O 91-93, 95-102,109, 234-43 
I/O Call Routine 101-2, 241, $BD0A 
IOCB n (i.e., IOCB 0, IOCB1, etc.) 
85-87, 91-92, 95,99-101,105,110 
close all (See CLSALL) 
control block 146, $0340-$0350 
ICCOM value equates 146 
ICSTA value equates 146 
IOCBORG 143, $0340 
IOCMD 99,102,144, $OOCO 
IODVC 144, $00C1 
lOn (i.e., IOl, 102, etc.) 83,100, 101-2 
IOTEST 86, 91, 93,100, 101, 240, $BCB3 
ISVAR 46, 241, $BD2F 
ISVAR1100, 241, $BD2D 

\ 

joysticks (See STICK, :STRIG) 

JS Appendix A 

L 

labels 34 
language 

creation of 33-39 
problems with 1-2 
high level 3 

LBUFF 23, 25, 30,145, $0580 
LDDVX240, $BCA6 
LDIOSTA 241, $BCFB 
LELNUM 87,144, $00AD 
LEN (See also XPLEN) 180, 203 
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LET (See also Execute Expression, XLET, 
:SLET) 8,11,29, 42, 105 
LIFO (last-in, first-out) stack 12, 43,133 
Line Buffer 23, 25-26 
line number 27-28,49-50, 52 
line processing 25-28, 31-32, 95-96 
LINE TOO LONG error (See also ERLTL) 
25-26, 43, 48 

LIST (See also XLIST, :SLIST) 15, 25, 

123,128,129,139-40 
device 71, 242 
entry in Runtime Stack 19 
execution 86-87, 216-17, 222 
subroutines 88-90 
LISTDTD 86-87,110,144, $00B5 
:LLINE 87, 88, 218-19, $B55C 
LLNGTH 50, 54, 72,144, $009F 
LMADR13,143, $02E7 
LOAD (See also XLOAD, :SLOAD) 
81-86,109,123,139-40 
as block (See LSBLK) 
execution 83-84, 236 
file format 81-82 
LOADFLG109-110,144, $00CA 
LOCAL: Appendix A 
LOCATE (See also XLOCATE, 

:SLOCATE) 92,240, Appendix B 
LOG (See also XPLOG) 180, 208, 270, 
$DECD 

LOG10 (See also XPL10) 208 
LOG10[X] 270, $DED1 
LOMEM 23,115 
LI 176, $A7C0 
low memory address 13 
LPRINT (See also XLPRINT, :SLPRINT) 
98-99, 216 

:LPRTOKEN 71, 88-89, 90, 218, $B535 

:LPTWB 218, $B54F 

LSBLK 237, $BB88 

:LSCAN 89-90, 217-18, SB50C 

LSRA: Appendix A 

:LSTMT 88-89, 219-20, $B590 

L2176, $A7C4 

M 

machine language 1-2 
macros Appendix A 
mantissa 127 

MAXCIX 26,29,144, $009F 
MDESUP 265, $DCE0 
MEMFULL 230, $B93C 
memo pad 105 
memory 

management routines 20-23 
organization 13-14 
pointer addresses 13, 83 


MEMTOP 20-21,143, $0090 
MEOLFLG 143, $0092 
meta-language 33 
MOD (See modulo) 
modulo 120-22 

multiplication (SeeFMUL, FRMUL, '*') 

multipurpose buffer 13,65, 82,110 

:MV6RS228, $B88F 

MVFR0E 267, $DD34 

MVFR12 266, $DD28 

MVLNG 183, Appendix B 

N 

NEXT (See also SNEXT) 18,131 
execution 78-79, 222-23 
in Pre-compiler 43-45,151, $A1E2 
NEW (See also XNEW, :SNEW) 109-110, 
123,128 
NFP164, $A672 
NFSP176, $A7CE 
NFUN164, A65F 
NFUSR164, $A669 
NIBSH0 261, $DBEB 
NMAT164, $A651 
NMAT2164, $A659 
non-terminal 35,40 
NOP 163, $A62E 
NORM 262, $DC00 

NOT (See also XPNOT) 178, Appendix B 
NOTE (See also XNOTE, :SNOTE) 100, 
239 

NSMAT173, $A777 
NSML174, $A78C 
NSML2174, $A790 
NSVAR169, $A708 
NSVRL169, $A710 
NSV2170, $A714 
NULL (in ABML) 162 
numeric constants 89,131 
numeric variable 7-8, 95 
NV 162, $A622 
NVAR163, $A64C 
NXSC 44,153, $A2A1 
NXTSTD 50, 54, 72,144, $OOA7 

o 

ON (See also XON, :SON, ONI) 80, 226 
ONI 173, $A768 
OPD171, $A72C 

OPEN (See also XOPEN, :SOPEN, 
COPEN, SOPEN) 99-100, 123,146, 
238 

Operating System (OS) 13-14, 92-93, 
105,109 
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Index 


Operator Execution Table ( See also 
OPETAB) 9,187-89 
Operator Name Table ( See also 

OPNTAB) 9, 46, 89,135-36,177-80 
Operator Precedence Table (Sec also 
OPRTAB) 9-10, 56,137-38,193-94, 
Appendix B 

Operator Stack 12, 23, 56-67 
entry format 66 
example of use 56-64 
Operator Token (in ABML) 42,131 
operators 33-34 
array 69 
EOE 57-66 

BASIC functions as 69 
execution of 69-70 
precedence of 56-64, 69 
SOE 57-66 
token 89 

OPETAB (See also Operator Execution 
Table) 187, $AA70 
OPNTAB (See also Operator Name 
Table) 135-36,177, $A7E3 
OPRTAB (See also Operator Precedence 
Table) 137-38,193, $AC3F 
OPSTKX 66,144, $00A9 
OR (See also XPOR) 

in ABML 41, 44-45,162 
in Operator Name Table 179 
OUTBUFF 23, 26-28, 30-31, 45,143, 
$0080 

P 

PADDLE (See also XPPDL) 180, 204 
Pascal 3 
pass/fail 37-40 

PEEK (See also XPPEEK) 69,115, 219-22, 
137-38,180, 203 
PEL 175, $A7A9 
PELA175, $A7B2 
PES175, $A7AC 
PILOT 3 

:PL6RS 229, $B89E 

PLOT (See also XPLOT, :SPLOT) 92, 234 
PLYEVL 267, $DD40 
POINT (See also XPOINT, :SPOINT) 
100-101, 239 
pointers 

line processing 25-27 
memory 13 

multipurpose buffer 65 
tables 20, 83,110,143 
POKADR144, $0095 
POKE (See also XPOKE, : SPOKE) 105 
execution 105, 211 
how to use 119-22 


polynomial evaluation (See also 
PLYEVL) 267 

POP (See also XPOP, :SPOP) 18, 227 
BASIC command 80 
in Pre-compiler 44,152, $A252 
POP1192, $AC0F 
POPRSTK 77, 78-80, 227, $B841 
POSITION (See also XPOS, :SPOS) 92, 
233 

power of (See also XPPOWER) 208-9 
PR1175, $A7A0 
PR2175, $A7A6 
PRCHAR 89, 235, $BA9F 
PRCR242, $BD6E 
PRCX 92, 99, 235, $BAA1 
PREADY 242, $BD57 
precedence (See operators. Operator 
Precedence Table) 

Pre-compiler 10-11, 25-26, 33-48 
pre-compiling interpreter 5 
PRINT (See also XPRINT, : SPRINT) 
97-98, 110,123,127, 214-16 
Program Editor 11, 25-32,110, 

Appendix B 

Program Executor 8,11-12, 32 
PROMPT 144, $00C2 
prompt 95 
PS 176, $A7BC 

PSHRSTK 77, 78-79, 221, $B683 
PSL175, $A7B6 
PSLA175, $A7B9 
PSw (i.e., PS1, PS2, etc.) 57, 59-65 
PTABW 97,144, $00C9 
PTRIG (See also XPPTRIG) 180, 204 
PUSH 43,152, $A228 
PUSR177, $A7DA 
PUSR1177, $A7DD 
PUT (See also XPUT, :SPUT) 92, 99, 146, 
239 

PUTCHAR 235, $BA9F 

R 

RAD (See also XRAD, :SRAD) 105, 211 
RADFLG 105,110,145, $00FB 
RAM tables 20, 81-82 
:RCONT 228, $B872 
READ (See also XREAD, :SREAD) 95-96 
bugs Appendix B 
entry in Runtime Stack 19 
execution 103-4, 211-13,222 
READY (See also PREADY) 51-52,110, 
242 

rearrangement (See expressions, 
rearrangement of) 

Relative Non-Terminal Vectors (in 
ABML) 42 
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REM (See also XREM, :SREM) 106,131, 
140,154 

RESTORE (See also XRESTORE, 
:SRESTORE) 103-4, 211 
RETURN (See also XRTN, :SRET) 12,18, 
79-80, 223-24 
Return (in ABML) 41 
:REXPAN 228, $B878 
Richard's Rule Appendix B 
RISASN96 

RND (See also XPRND) 37, 69,180, 206 

RNDLOC143, $D20A 

RNTV44 

ROLA: Appendix A 
ROM 143, $A000 
ROM tables 9-10,135-36 
RORA: Appendix A 
RSHF0E 263, $DC62 
RSHFT0 263, $DC3A 
RSHFT1263, $DC3E 
RSTPTR 229, $B8AF 
RSTSEOL100, 242, $BD99 
RTN (in ABML) 41,44-45,162 
RTNVAR 96,193, $AC16 
RTS 45, 51, 96,106 
RUN (See also XRUN, :SRUN, 
RUNINIT) 

as direct statement 49, 52 
execution 71-73, 224 
initialization 103, 105 
with implied LOAD (See also 
FRUN) 235 
RUNINIT 230, $B8F8 
RUNSTK19,143, $008E 
Runtime Stack 10,14 

and FOR, NEXT, GOSUB, 
RETURN 76-80 
entry format 18-19 
listing 133-34 
pointer to 19 

s 

SADR 66-68 

SAP (Simple Arithmetic Process) 33-39 
SAVOUR 144, $00BE 
:SAVDEX228, $B88A 
SAVE (See also XSAVE, : SSAVE) 81-83, 
85-86,139 

as block (See LSBLK) 
execution 82-83, 237 
file format 81-82 
SAVE "C:" 84 
SAVEOP 57, 59-64 
rSAVRTOP 228, $B881 
:SBYE 167, $A6BE 


scalar 126 

SCANT 89-90, 97-98,144, $00AF 
: SOLO AD 167, $A6BE 
:SCLOSE 170, $A721 
:SCLR 167, $A6BE 
:SCOLOR 167, $A6BD 
:SCOM 173, $A760 
:SCONT 167, $A6BE 
SCRADR 90 
screen editor 25 
SCRX 92,143, $0055 
SCRY 92,143, $0054 
:SCSAVE 167, $A6BE 
SCVECT 272, $BFF9 
:SDATA 176, $A7CB 
:SDEG 167, $A6BE 
:SDIM 173, $A760 
:SDOS 167, $A6BE 
:SDRAWTO 172, $A75D 
SEARCH 29,47,135,158, $A462 
:SEND 167, $A6BE 
:SENTER 170, $A724 
:SETCODE 27-29,154, $A2C8 
:SETCOLOR (See also XSETCOLOR, 
:SSETCOLOR) 91-92, 232 
SETDZ 242, $BD72 
SETLINE 54, 226, $B818 
SETLN150, 54, 226, $B81B 
SETSEOL 99, 242, $BD79 
SFNP177, $A7D6 
:SFOR 167, $A6D2 
SFP165, $A678 
SFUN165, $A68A 
:SGET 168, $A6E8 
SGN (See also XPSGN) 180 
:SGOSUB 167, $A6BD 
:SGOTO 167, $A6BD 
:SGR 167, $A6BD 
SICKIO101, 240, $BCB9 
:SIF 174, $A794 

SIN (See also XPSIN, SIN[X]) 105,180, 
207, 243 

SIN[X] 243, $BDA7 
:SINPUT 169, Appendix B, $A6F4 
SKBLANK 29, 261, $DBA1 
SKCTL143, $D20F 
SKPBLANK 260-61, $DBA1 
:SLET 167, $A6C0 
SLIS171, $A73C 
:SLIST 171, $A733 
:SLOAD 170, $A724 
:SLOCATE 168, $A6E2 
:SLPRINT 169, $A700 
SMAT165, $A694 
SMAT2166, $A69C 
:SNEW 167, $A6BE 
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:SNEXT 168, $A6EA 
:SNOTE 172, $A74A 
SNTAB (See also Statement Name Table) 
115,135-36,159, $A4AF 
SNX286,101,148, $A053 
SOE operator 57-66 
:SON 173, $A763 
SOP 166, $A6A2 
SOPEN 238, SBBDl 
:SOPEN 170, $A71A 
SOUND (See also XSOUND, :SSOUND) 
93, 232 

sound registers (See also SREGn, 
:SKCTL) 93,143 
:SPLOT 172, $A75D 
:SPOINT 172, $A74A 
: SPOKE 172, $A75D 
:SPOP 167, SA6BE 
:SPOS 172, $A75D 
: SPRINT 169, $A6FC 
:SPUT 166, $A6BA 
speed comparisons 3-5 
SQR (See also XPSQR, SQR[X] 180, 208, 
245 

SQR[X] 245, SBEE3 
:SRAD 167, $A6BE 
SRCADR 29, 43, 48,144, $0095 
SRCONT 45-46,154, $A2E6 
:SREAD 169, Appendix B, $A6F5 
SREGn (i.e., SREG1, SREG2, etc.) 143, 
$D208, $D201-2 
:SREM 176, $A7C8 
:SREST 168, $A6EF 
:SRET 167, $A6BE 
:SRUN 170, $A727 
:SSAVE 170, $A724 
:SSETCOLOR 172, $A75B 
:SSOUND 172, $A759 
:SSTATUS 171, $A741 
:SSTOP 167, $A6BE 
ST (See Statement Table) 
stack (See also Argument Stack, 

Operator Stack, Runtime Stack, 
CPU stack) 2,12 

STACK OVERFLOW error (See also 
ERRAOS) 66 

STARP18,139,143, $008C 

Start Of Expression (See SOE Operator) 

STAT171, $A744 

statement 

execution 50-51 
processing 28-31 

Statement Execution Table (See also 
STETAB) 9,185-87 

Statement Name Table (See also SNTAB) 
9, 40,135-36,159-61 


Statement Name Token 8,12,106 
Statement Syntax Table 10-11, 33, 40 
Statement Table 10-11,14, 49-50, 52 
entry format 17,131 
in LIST 87-88 
in NEW 110 

in SAVE and LOAD 81-82 
listing in token form 129-31 
processing 31 

STATUS (See also XSTATUS, :SSTATUS) 
100, 146, 239 
:STCHAR 264, $DC9F 
STCOMP165, $A67E 
STENUM 29, 48, 144, $00AF 
STEP 

execution 77-78 
in Operator Name Table 178 
in Runtime Stack 19 
STETAB (See also Statement Execution 
Table) 185, $AA00 
STICK (See also XPSTICK) 180, 204 
STINDEX 65, 87-88,144, $00A8 
STKLVL 43,144, $00A9 
STMLBD 29-30,144, $00A7 
STMTAB 17, 131,143, $0088 
STMCUR 20, 31-32, 49-54, 64, 72, 88, 

143, $008A 

STMSTRT 30,144, $00A8 
:STNUM 264, $DC9D 
STOP (See also XSTOP, :SSTOP) 50, 
71-72,124, 225 
STOPLN 71-72,110, $OOBA 
STR (See also XPSTR) 
function 205 
routine 165, $A682 
STR$ 180 

: STRAP 167, $A6BD 
STRCMP 202, $AF81 
STRIG (See also XPSTRIG) 180, 204 
String/Array Table 10,106-7, 127 
pointers into 15-16,143 
entry format 18 
SAVEing 139 

use of, in Execute Expression 
66-67 

string 

assign operator 200-202 
bug Appendix B 
comparisons (See STRCMP) 
constants (literals) 89,131 
variables 15-18,66-67, 70, 96,107 
subscripts (See arrays,'(' and',') 
subtraction (See FSUB, FRSUB, '-') 
SVAR165, $A68F 
SVCOLOR 92,143, $02FB 
SVDISP 77, 79,144, $00B2 
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SWNTP26,144, $00 AD 
SVWTE27,144, $00B1 
:SXIO 170, $A718 
symbols 1, 4 

in language creation 33-39 
SYN: Appendix A 
SYNENT 42,151, $A1C3 
SYNTAX 74,148, $A060 
syntax 1,10-11,23,29-30 
analysis of 37-39 
bugs with Appendix B 
creation of 35-39 
instruction codes 40-42 
memory organization 148-53 
tables 40-42,162-77 
syntaxer (See Pre-compiler) 

Syntax Stack 23,43 

T 

tables 9-10 

Function Name Table 180 
Operator Execution Table 9, 
187-89 

Operator Name Table 9,46, 89, 
135-36,177-80 

Operator Precedence Table 9-10, 
56,137-38,193-94, Appendix B 
RAM tables 11, 81-82,110,143 
ROM tables 9-10 
Runtime Stack 10,14,18-19, 
76-80,133-34 

Statement Execution Table 9, 
185-87 

Statement Name Table 9, 40, 
135-36,159-61 

Statement Syntax Table 10-11 
Statement Table 10,14,17, 31, 
49-50, 52, 81-82,110,129-31 
String/Array Table 10,13, 18, 
106-7,127 

syntax tables 40-42,162-77 
Variable Name Table 10,13, 15, 
26,46,81-82,110,123,135-36 
Variable Value Table 10,13,15-16, 
27, 46, 66-67, 78, 81-82,106-7, 
125-28 

TENDST51, 52,185, $A9E2 
terminal symbol 34-36 
TERMTST 44-45,154, $A2A9 
TEXP172, $A755 

THEN (See also X1F, :SIF) 58, 76,178 
TNCON47,157, $A400 
TNVAR 46,155, $A32A 
TO 131,178 

tokens 5-8,15,17, 88-89,135 


TOPRSTK143, $0090 
transcendental functions 207-9 
translators 1-3 

TRAP (See also XTRAP, : STRAP) 73, 76, 
225, 231 

TRAPLN 73, 76,110,144, $00BC 
true (See XTRUE) 

TSCON47,157-58, $A428 
TSLNUM 27, 52-53, 77, 79, 87,144, 
$00A0 

TSTALPH157, $A3F3 
rTSTCHAR 261, $DBBB 
TSTEND 230, $B910 
TSTNUM 261, $DBAF 
TSVAR155, $A32E 
TVAR155, $A330 


u 

UNARY 162, $A618 
unary + and -179, Appendix B 
USR (See also XPUSR) 180, 206 


V 

VAL (See also XPVAL) 180, 204 
Variable Name Table 10,13, 26,46 
entry format 15 
in NEW 110 

in SAVE and LOAD 81-82 
listing 123-24,135-36 
variables (See also numeric v, string 
v, array v) 8, 95 

finding and listing 139-40 
listing 123-28 
tokens 8, 88-89 

Variable Value Table 10,13, 27, 46, 
66-67, 78,106-7 
entry format 15-17 
in SAVE and LOAD 81-82 
listing 125-28 

VEXP (in ABML) 41, 44-45, 162 
VNT (See Variable Name Table) 
VNTD 20,123,143, $0084 
VNTP15,123,139,143, $0082 
VNUM 66-68 

VVT (See Variable Value Table) 
WTP17,143, $0086 


w 

WARMFLG 109-110,143, $0008 
WARMSTART109-110,148, $A04D 
WORD 122 
WWTPT144, $009D 
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XBYE 105, 185, $A9E8 
XCLOAD 237, $BBAC 
XCLOSE 100, 239, $BC1B 
XCLR 72, 224, $B766 
XCMP196, $AD26 
XCOLOR 91, 233, $BA29 
XCOM 210, $B1D9 
XCONT 71-72, 225, $B7BE 
XCSAVE 237, $BBA4 
XDATA 103, 185, $A9E7 
XDEG 105, 211, $B261 
XDIM 106-7, 210, $B1D9 
XDOS 105,185, $A9EE 
XDRAWTO 91, 92-93, 233, $BA31 
XEND52, 71-72, 225, $B78D 
XENTER 85-86, 235, $BACB 
XEOS 167, $A6BD 
XERR 106, 230, $B91E 
XFALSE195, $AD00 
XFOR51, 77-78, 220, SB64B 
XFORM269, $DE95 
XGET 97, 239, $BC7F 
XGOSUB 79, 87,103, 221, $B6A0 
XGOTO 75, 76, 79-80, 221, SB6A3 
XGR 91, 234, $BA50 
XGS 222, $B6C7 
XIF 76, 224, $B778 
XIN0 96, 213, $B326 
XINA 95-96,104, 213, $B335 
x index 69-70 

XINPUT 95-96, 104, 213, $B316 

XINT 207, $B0E6 

XINX 96, 214, $B389 

XIO (Seealso XXIO, :SXIO) 99-100, 238 

XIRTS 96, 214, $B3A1 

XISTR96, 213, $B35E 

XLET 105, 189, $AAE0 

XLIST51, 86-87, 216, $B483 

XLOAD 72, 83-84, 236, $BAFB 

XLOCATE 92, 240, $BC95 

XLPRINT 98-99, 216, $B464 

XNEW109,110,147, $A00C 

XNEXT 78-79, 222, $B6CF 

XNOTE 100, 239, $BC36 

XON 80, 226, $B7ED 

XOPEN 99, 238, $BBEB 

XOP199, 238, $BBED 

XPAASN197, $AD5F 

XPABS206, $B0AE 

XPACOM197, $AD79 

XPALPRN 198, $AD86 

XPAND195, $ACE3 

XPASC 204, $B012 

XPATN 207, $B12F 


XPCHR 205, $B067 
XPCOS 207, $B125 
XPDIV194, $ACA8 
XPDLPRN 197, $AD82 
XPEOL215, SB446 
XPEOS 98, 215, $B446 
XPEQ 195, SACDC 
XPEXP208, $B14D 
XPFRE204, $AFEB 
XPGE 195, $ACD5 
XPGT195, $ACCC 
XPINT 206, $B0DD 
XPL10208, $B143 
XPLE 195, $ACB5 
XPLEN 203, SAFCA 
XPLOG 208, $B139 
XPLOT 92, 234, $BA76 
XPLT 195, $ACC5 
XPMINUS 194, $AC8D 
XPMUL69,194, $AC96 
XPNE 195, $ACBE 
XPNOT195, $ACF9 
XPOINT 100, 239, $BC4D 
XPOKE 105, 211, $B24C 
XPOP 80, 227, $B841 
XPOR195, $ACEE 
XPOS 92, 233, $BA16 
XPPDL (See also :GRF) 204, $B022 
XPPEEK 203, $AFE1 
XPPLUS 194, $AC84 
XPPOWER 208, $B165 
XPPTRIG (See also :GRF) 204, $B02A 
XPR0 98, 214, $B3BE 
XPRINT 86, 97-98, 214, $B3B6 
XPRIOD 98, 215, $B437 
XPRND 206, $B08B 
XPRPRN 197, $AD7B 
XPRTN 98, 215, $B458 
XPSEQ 195, SACDC 
XPSGE 195, SACD5 
XPSGN196, SAD19 
XPSGT195, SACCC 
XPSIN207, SB11B 
XPSLE 195, SACB5 
XPSLPRN199, $AE26 
XPSLT195, SACC5 
XPSNE 195, SACBE 
XPSQR 208, SB157 
XPSTICK (See also :GRF) 204, SB026 
XPSTR205, SB049 
:XPSTR 98, 215, SB3F8 
XPSTRIG (See also :GRF) 204, SB02E 
XPSxxxx (i.e., string operator execution 
routines) 195 
XPTAB 98 

XPUMINUS194, Appendix B, SACA8 
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XPUPLUS194, $ACB4 
XPUSR 206, $B0BA 
XPUT99, 239,$BC72 
XPVAL 204, $B000 
XPxxxx (i.e., operator and function 
execution routines) 69,194-97, 
203-9 

XRAD 105, 211, $B266 
XRD3 96, 212, $B2D0 
XREAD 2 03-4, 211, $B283 
XREM 106, 185, $A9E7 
XREST 104, 211, SB26B 
XRTN 79, 87,104, 223, SB719 
XRUN 51, 72-73, 224, $B74D 
XSAASN 200, $AEA3 
XSAVE 82-83, 237, $BB5D 
XSETCOLOR 91-92, 232, $B9B7 
XSOUND 93, 232, $B9DD 
XSPV 200, $AE96 
XSTATUS 100, 239, $BC28 
XSTOP50, 72-72, 96, 225, $B793 
XTRAP 76, 225, $B7E1 
XTRUE195, $AD05 
XXIO 99, 238, $BBE5 

Y 

y index 69-70 

z 

Z = [X-C]/[X + C] (See also XFORM) 
269-70 

zero default with DIM 127 
zero page 

floating point work area 143 
pointers 20,110,143-44 
RAM locations 144 
ZFP143, $00D2 
ZICB143, $0020 
ZPADEC 203, $AFBC 
ZPG1143, $0080 
ZVAR 229, $B8C0 
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The Atari® BASIC Sourcebook 

Everything You Always Wanted to Know 
about the Making of a Computer Language 

• When you type in BASIC programs and run them, what is 
really going on inside the computer? 

• How does the computer know how to handle a FOR-NEXT 
loop and where it should go when it meets a RETURN? 

• Where do ERROR messages come from? 

• How does the computer decide which mathematical opera¬ 
tion to perform first? 

• Why do some processes take so long, when others are almost 
instantaneous? 

• What sometimes causes the computer to lock up when you 
delete lines from your program? 

• How does the computer know what to do when it sees words 
and symbols like GOTO, INT, CHR$, *, +, and > ? 

• How can your machine language programs take advantage 
of some of the sophisticated routines in Atari BASIC? 

The creators of Atari BASIC have now revealed their own 
work. Even if you aren't a machine language programmer, 
you'll find this book a fascinating exploration of a computer 
language. Now you can understand exactly why your pro¬ 
grams work as they do. And if you are a machine language 
user, the source listing will let you see exactly where to enter 
Atari BASIC to use the powerful routines built into the 
language. 


$12.95 
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